[cl-typesetting-devel] CLISP support

[Marc Battyani]

"Klaus Weidner" <kw at w-m-p.com> wrote:

> Some more notes on the patch...
>
> CLISP died at (max ... max-height) due to max-height being NIL in the
> loop. Replacing it with (or max-height 0) fixed that:
>
> > -          finally (setf height (+ (max (or (height row) 0) max-height)
+epsilon+)))
> > +          finally (setf height (+ (max (or (height row) 0) (or
max-height 0)) +epsilon+)))
>
>
> The following single change is not needed after all, it's left over from
> my experiments:
>
> > -          while (<= y max-height)
> > +          while (and rows (<= y max-height))
>
> All the others *are* needed to make it work. I've appended a fixed full
> patch including the older floating point handling patch.

All this is in the repository and tarball now. With #+/-clisp so that we can
remove them when CLISP loop is compliant. ;-)

Marc