failed AVER: (EQ SB-C::CALLED SB-C::FUN)
Affects | Status | Importance | Assigned to | Milestone | |
---|---|---|---|---|---|
SBCL |
Fix Released
|
Undecided
|
Unassigned |
Bug Description
(compile
nil
'(lambda (float-string &key start end radix junk-allowed type)
(let ((radix-array (radix-values radix))
(mantissa 0)
(sign 1))
(with-
(labels ((peek ()
(sign)
)))))
===>
failed AVER: (EQ SB-C::CALLED SB-C::FUN)
[...]
0: (SB-INT:BUG "~@<failed AVER: ~2I~_~S~:>" (EQ SB-C::CALLED SB-C::FUN))
1: (SB-IMPL:
2: (SB-C::
3: (SB-C::
4: (SB-C::LET-CONVERT #<SB-C::CLAMBDA :%SOURCE-NAME SIGN :%DEBUG-NAME (LABELS SIGN :IN #:DROP-THRU-TAG-1) :KIND NIL :TYPE #<SB-KERNEL:
5: (SB-C::
6: (SB-C::
7: (SB-C::
[...]
Changed in sbcl: | |
status: | Fix Committed → Fix Released |
In a2821fe5df7cb8a 926c53607c17bbf 68443a558c