Incorrect value from CASE
Bug #2054196 reported by
Paul F. Dietz
This bug affects 1 person
Affects | Status | Importance | Assigned to | Milestone | |
---|---|---|---|---|---|
SBCL |
Fix Released
|
Undecided
|
Unassigned |
Bug Description
(defun f327 (b)
(declare (type (integer -1 0) b))
(declare
(optimize (space 0) (safety 2) (compilation-speed 1) (speed 2)
(case
(let ((v2 (boole boole-nor 0 b)))
(if (<= 0 v2)
b
1))
((-1 0) 0)
(t 1)))
(f327 -1) ==> 1 ;; should be 0
x86-64, "2.4.1.
Changed in sbcl: | |
status: | New → Fix Released |
To post a comment you must log in.