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 |
Revision history for this message
| Paul F. Dietz (paul-f-dietz) wrote | #1 |
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