Error in corrupted CERROR when first arg is not a simple string
Affects | Status | Importance | Assigned to | Milestone | |
---|---|---|---|---|---|
SBCL |
Fix Released
|
Undecided
|
Unassigned |
Bug Description
(compile nil (let ((a (make-array '(1) :element-type 'base-char :fill-pointer 1 :initial-element #\a))) `(lambda () (cerror ,a "x"))))
==>
The value
"a"
is not of type
SIMPLE-STRING
when binding STRING
[...]
0: (SB-FORMAT:
1: (SB-C::
2: (SB-C::
[...]
Changed in sbcl: | |
status: | Fix Committed → Fix Released |
Similar error for non-simple string in second position
(let ((x (make-array '(1) :element-type 'base-char :fill-pointer 1 :initial-element #\B))) (compile nil `(lambda () (cerror "a" ,x))))