Incorrect value with nested bindings of a special variable
Bug #2054211 reported by
Paul F. Dietz
This bug affects 1 person
Affects | Status | Importance | Assigned to | Milestone | |
---|---|---|---|---|---|
SBCL |
Fix Released
|
Undecided
|
Unassigned |
Bug Description
(declaim (special *s7*))
(defun f329 (c)
(let ((*s7* 1))
(gcd
(let ((*s7* c))
*s7*)
*s7*)))
(f329 17) ==> 17 ; should be 1
x86-64, "2.4.1.
Changed in sbcl: | |
status: | New → Fix Released |
To post a comment you must log in.
That also fixed this bug:
(defun f330 (a)
(logxor (unwind-protect a (setq a 7)) a))
(f330 0) ==> 0 ; should be 7