projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.9.8.6:
[sbcl.git]
/
src
/
code
/
load.lisp
diff --git
a/src/code/load.lisp
b/src/code/load.lisp
index
eafe8a0
..
b21c7dd
100644
(file)
--- a/
src/code/load.lisp
+++ b/
src/code/load.lisp
@@
-114,6
+114,10
@@
(declare (optimize (speed 0)))
(read-arg #.sb!vm:n-word-bytes))
(declare (optimize (speed 0)))
(read-arg #.sb!vm:n-word-bytes))
+(defun read-unsigned-byte-32-arg ()
+ (declare (optimize (speed 0)))
+ (read-arg 4))
+
\f
;;;; the fop table
\f
;;;; the fop table
@@
-305,7
+309,7
@@
;; Read and validate version-specific compatibility stuff.
(flet ((string-from-stream ()
;; Read and validate version-specific compatibility stuff.
(flet ((string-from-stream ()
- (let* ((length (read-word-arg))
+ (let* ((length (read-unsigned-byte-32-arg))
(result (make-string length)))
(read-string-as-bytes stream result)
result)))
(result (make-string length)))
(read-string-as-bytes stream result)
result)))