[movitz-devel] error during create-image with los0-gc.lisp

[Elliott A Johnson]

Frode-

I don't know if you "guarantee" Movitz to build on SBCL, but it suffers
from the same problem.

-Elliott


> +  #+cmu (declare (optimize (safety 0))) ; Circumvent CMUCL bug in
> loop for-as-on-list.
> +  (loop for (p . tail) on prg
> +      as expander = (and (consp p)
> +                         (symbolp (car p))
> +                         (assembly-macro-expander (car p) amenv))
> +      if expander
> +      append (funcall expander p) into result
> +      else if (consp p)
> +      append (list (assembly-macroexpand p amenv)) into result
> +      else append (list p) into result
> +      when (not (listp tail))
> +      do (setf (cdr (last result)) tail)
> +         (return result)
> +      finally (return result)))