failed AVER: (NOT (SB-INT:MEMQ PUSH SB-C::END-STACK))
Affects | Status | Importance | Assigned to | Milestone | |
---|---|---|---|---|---|
SBCL |
Fix Released
|
Undecided
|
Unassigned |
Bug Description
(defun f234 (a b)
(catch 'ct1
(labels ((%f12 (f12-1 f12-2 &key (key1 b))
(%f12 a (%f12 0 b)))))
==>
failed AVER: (NOT (SB-INT:MEMQ PUSH SB-C::END-STACK))
[...]
0: (SB-C::
1: (SB-C::
2: (SB-C::
3: (SB-C::
4: (SB-C::
[...]
Changed in sbcl: | |
status: | Fix Committed → Fix Released |
Another simpler example:
(defun f325 () value-prog1 0)))
(let* ((v (multiple-
(catch 'c (dotimes (i 0 v)))))