failed AVER: (EQ (SB-C::CTRAN-KIND SB-C::CTRAN) :BLOCK-START)
Affects | Status | Importance | Assigned to | Milestone | |
---|---|---|---|---|---|
SBCL |
Fix Released
|
Undecided
|
Unassigned |
Bug Description
(defun f67 (x &rest args)
(unless
(if (eq x :tud)
(zerop (first args))
(every #'identity args (every #'identity args)))
args))
===>
failed AVER: (EQ (SB-C::CTRAN-KIND SB-C::CTRAN) :BLOCK-START)
[...]
0: (SB-INT:BUG "~@<failed AVER: ~2I~_~S~:>" (EQ (SB-C::CTRAN-KIND SB-C::CTRAN) :BLOCK-START))
1: (SB-IMPL:
2: (SB-C::%USE-CTRAN #<SB-EXT:EXIT :ENTRY #<SB-C::ENTRY {100440DAF3}> :VALUE #<SB-C::LVAR 1 {1004453F93}> {1004453FE3}> #<SB-C::CTRAN 2 {100440BB93}>)
3: (SB-C::
[...]
tags: | added: ir-copy |
Changed in sbcl: | |
status: | Fix Committed → Fix Released |
Similar failure (w. bad return-from):
(lambda (x p c)
(funcall c x)
(when (if p
(every #'not (mapcar c x)))
(return-from bogus nil))
t)