core dump in mapcan+sort?

Hi,

if you save in a file, compile and load the following:

(flet ((LESS (a b)
          (< a b)))

   (flet ((GETY ()
            (sort (copy-list '(0 1)) #'less)))

     (defun FOO ()
       (mapcan #'(lambda (x)
                   (mapcar #'(lambda (y) (cons x y))
                           (gety)))
               '(a b)))))

and then execute (foo) in REPL, ALISP hangs, reports illegal instruction  
or dumps core. Is it something simple I don't see? The code works with  
Lispworks. I've checked the code with ACL 8.0 on Mac OS X/PPC, Mac OS  
X/Intel and ACL 7.0 (trial) on FreeBSD.

David Tolpin


--