Fix LOOP code size estimation

(Olof-Joachim Frahm)

C.f. https://trac.clozure.com/ccl/ticket/1085:

> [...] should be (throw 'estimate-code-size nil)

And to note:

> (BTW, in SBCL, I fixed this by getting rid of the code size estimation
> completely)
parent 035c1a44
......@@ -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)
......
......@@ -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
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment