diff --git a/src/org/armedbear/lisp/loop.lisp b/src/org/armedbear/lisp/loop.lisp index 5b466688c21f21b5aed760519b5151aeee3b0098..ccd023fe1e8e339921676bf947081992c6f38920 100644 --- a/src/org/armedbear/lisp/loop.lisp +++ b/src/org/armedbear/lisp/loop.lisp @@ -760,9 +760,7 @@ code to be loaded. (or (symbolp (cadr x)) (and (consp (cadr x)) (eq (caadr x) 'setf))) 1 - ;; FIXME: This tag appears not to be present - ;; anywhere. - (throw 'duplicatable-code-p nil))) + (throw 'estimate-code-size nil))) ((eq fn 'multiple-value-setq) (f (length (second x)) (cddr x))) ((eq fn 'return-from) diff --git a/test/lisp/abcl/bugs.lisp b/test/lisp/abcl/bugs.lisp index e683ffbe5d2214d9e176ba397956fbc7f2651b6d..88aee59ff95535c63d3c78234f7b09da98c991b9 100644 --- a/test/lisp/abcl/bugs.lisp +++ b/test/lisp/abcl/bugs.lisp @@ -133,6 +133,11 @@ nil) :collecting (cons x y)) ((0.0 . 0) (0.0 . 1))) +;; http://abcl.org/trac/ticket/444 +;; https://trac.clozure.com/ccl/ticket/1085 +(deftest bugs.loop.2 + (loop for x = #'(lambda ()) for y = 10 then 20 return y) + 10) ;; http://abcl.org/trac/ticket/294 (deftest bugs.reader.1