full call to SB-VM::%LOGBITP
Affects | Status | Importance | Assigned to | Milestone | |
---|---|---|---|---|---|
SBCL |
Fix Released
|
Medium
|
Unassigned |
Bug Description
(defun f371 (a)
(labels ((%f1 (&optional (f1-4 0) (f1-5 0))
(%f1 (complex (%f1 0 a) 0) 0)))
==>
full call to SB-VM::%LOGBITP
[...]
Backtrace:
0: (SB-INT:BUG "full call to ~S" SB-VM::%LOGBITP)
1: (SB-C::
2: (SB-C::
3: (SB-C::
[...]
Changed in sbcl: | |
status: | New → Fix Committed |
Changed in sbcl: | |
status: | Fix Committed → Fix Released |
(defun f371 ()
(multiple- value-call #'%f14 1))
(catch 'ct
(flet ((%f14 (x)
(the fixnum x)))
(if (logbitp 0
(the integer (%f14 2))))))