Hello Andrey, | Here is my patch: |...snip...|
| for line-count from 0 while (if max-height (> max-height (* -1 dy line-count)) t) I cannot vote as I use rather different versions of these functions in practice. But I would 1) default max-height, e.g. &optional ... (max-height max-positive-fixnum) 2) replace the above line by something like the below for height upfrom 0 below max-height by dy (Not tested.) -- Sincerely, Dmitriy Ivanov lisp.ystok.ru _______________________________________________ cl-pdf-devel site list cl-pdf-devel@common-lisp.net http://common-lisp.net/mailman/listinfo/cl-pdf-devel