Value of #:OBJECT0 in (SB-EXT:TRULY-THE (UNSIGNED-BYTE 64) #:OBJECT0) is -1, not a (UNSIGNED-BYTE 64).
Bug #1806982 reported by
Paul F. Dietz
This bug affects 1 person
Affects | Status | Importance | Assigned to | Milestone | |
---|---|---|---|---|---|
SBCL |
Fix Released
|
Undecided
|
Unassigned |
Bug Description
((lambda (x)
(typep
(boole boole-set x 0)
'(integer 68487177513964308 142536728589253
)) 0)
==>
Value of #:OBJECT0 in
(SB-EXT:TRULY-THE (UNSIGNED-BYTE 64) #:OBJECT0)
is
-1,
not a
(UNSIGNED-BYTE 64).
[Condition of type SIMPLE-TYPE-ERROR]
[...]
0: (SB-C::
1: ((LAMBDA ()))
2: (SB-INT:
3: (EVAL ((LAMBDA (X) (TYPEP # #)) 0))
[...]
Changed in sbcl: | |
status: | Fix Committed → Fix Released |
To post a comment you must log in.
Similar big:
(defun f343 () 45107)) )
(typep (complex (/ -2 1) 0)
'(integer 44 151378013085027
(f343) ==> error