projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.8.18.3:
[sbcl.git]
/
src
/
code
/
fop.lisp
diff --git
a/src/code/fop.lisp
b/src/code/fop.lisp
index
a981179
..
33146bf
100644
(file)
--- a/
src/code/fop.lisp
+++ b/
src/code/fop.lisp
@@
-704,7
+704,7
@@
bug.~:@>")
(let* ((kind (pop-stack))
(code-object (pop-stack))
(len (read-byte-arg))
(let* ((kind (pop-stack))
(code-object (pop-stack))
(len (read-byte-arg))
- (sym (make-string len)))
+ (sym (make-string len :element-type 'base-char)))
(read-n-bytes *fasl-input-stream* sym 0 len)
(sb!vm:fixup-code-object code-object
(read-word-arg)
(read-n-bytes *fasl-input-stream* sym 0 len)
(sb!vm:fixup-code-object code-object
(read-word-arg)