projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Commiting fix by Doug Katzman: disassembler missing ",8" on SHLD
[sbcl.git]
/
src
/
compiler
/
generic
/
genesis.lisp
diff --git
a/src/compiler/generic/genesis.lisp
b/src/compiler/generic/genesis.lisp
index
3bba5f8
..
e633d66
100644
(file)
--- a/
src/compiler/generic/genesis.lisp
+++ b/
src/compiler/generic/genesis.lisp
@@
-2639,6
+2639,7
@@
core and return a descriptor to it."
(code-object (pop-stack))
(len (read-byte-arg))
(sym (make-string len)))
(code-object (pop-stack))
(len (read-byte-arg))
(sym (make-string len)))
+ #!-sb-dynamic-core (declare (ignore code-object))
(read-string-as-bytes *fasl-input-stream* sym)
#!+sb-dynamic-core
(let ((offset (read-word-arg))
(read-string-as-bytes *fasl-input-stream* sym)
#!+sb-dynamic-core
(let ((offset (read-word-arg))