Incorrect value with MULTIPLE-VALUE-BIND, IF
Affects | Status | Importance | Assigned to | Milestone | |
---|---|---|---|---|---|
SBCL |
Fix Released
|
Undecided
|
Unassigned |
Bug Description
(defparameter *f358*
'(let* ((v8 c) (v1 e))
(
(if (/= a c)
(boole boole-orc1 (eval v6)
(let ((*s9* (progv '(*s5*) (list 0) 0)))
v6)))
(defun f358 ()
(let* ((vals '(0 571816791704489 1))
(vars '(a c e))
(opt-form
`(lambda ,vars
`(lambda ,vars
(values
(apply (compile nil opt-form) vals)
(apply (compile nil unopt-form) vals))))
(f358) ==> 461168601842738
Changed in sbcl: | |
status: | Fix Committed → Fix Released |
In the above, *s9* and *s5* are declared special.