maxima and cmucl 2002-08-13 don't fit



>>>>> "jarausch" == jarausch  <jarausch@belgacom.net> writes:

    jarausch> On 14 Oct, Raymond Toy wrote:
    >>>>>>> "jarausch" == jarausch  <jarausch@igpm.rwth-aachen.de> writes:
    >> 
    jarausch> Trying to build maxima (current cvs) I get
    >> 
    >> I think this is caused by one or more of the following issues:
    >> 
    >> o compile-file-pathname has changed in CMUCL to be ANSI compliant
    >> o defsystem isn't doing the right thing, maybe.
    >> 
    >> In any case, look in src/maxima.system.  You'll find a line like
    >> 
    >> #+cmucl "binary-cmucl"
    >> 
    >> Change that to read
    >> 
    >> #+cmucl (truename "binary-cmucl")
    >> 
    >> This hack should allow maxima to build.
    >> 

    jarausch> Many thanks, but unfortunately this doesn't help.

I think I found it.  In src/cl-info.lisp in the function all-matches,
there's the code:

    (loop while (>= (setq start (string-match pat st start)) 0)
      do
      collect (list start (setq start (match-end 0))))))

Remove the "do".

Why is this happening?  The CVS version (soon to be 18e) has many ANSI
CL fixes and one of them is that do must be followed by a form, not a
symbol.  Removing "do" fixes this.

If you can build with this change, I'll check in the fix.

Ray