mapl: infinite loop

Compiled mapl loops infinetely.

(defun foo ()
  `(psetf ,@(mapl (lambda (x)
                    (psetf (car x) (list 'foo 10 (car x))
                           (cdr x) (cons (list 'bar (car x)) (cdr x))))
                  (list 1 2 3))))

(compile 'foo)
(foo)

expected:

> (foo)

(PSETF (FOO 10 1) (BAR 1) (FOO 10 2) (BAR 2) (FOO 10 3) (BAR 3))

observed: infinite loop

Provide details regarding ECL version (or preferably commit), operating system and if revelant the build options and versions of the build tools.

"16.1.3"
"0e3d9d685d4ac9c7c2f2bb469b095c07b645140d"
"4.8.0-41-generic"
"x86_64"
(:QUICKLISP :ASDF-PACKAGE-SYSTEM :ASDF3.1 :ASDF3 :ASDF2 :ASDF :OS-UNIX
 :NON-BASE-CHARS-EXIST-P :ASDF-UNICODE :WALKER :CDR-1 :CDR-5 :LINUX :FORMATTER
 :CDR-7 :ECL-WEAK-HASH :LITTLE-ENDIAN :LONG-LONG :UINT64-T :UINT32-T :UINT16-T
 :RELATIVE-PACKAGE-NAMES :LONG-FLOAT :UNICODE :DFFI :CLOS-STREAMS :CMU-FORMAT
 :UNIX :ECL-PDE :DLOPEN :CLOS :THREADS :BOEHM-GC :ANSI-CL :COMMON-LISP
 :IEEE-FLOATING-POINT :CDR-14 :PREFIXED-API :FFI :X86_64 :COMMON :ECL)

Found on #sbcl irc log. Interpreted version works fine.

this code is non-conforming (modifies destructively list, not allowed in mapl)

closed