projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
1.0.20.23: get rid of IGNORE-ERRORS in SB-INTROSPECT
[sbcl.git]
/
src
/
code
/
room.lisp
diff --git
a/src/code/room.lisp
b/src/code/room.lisp
index
87770c1
..
bb91438
100644
(file)
--- a/
src/code/room.lisp
+++ b/
src/code/room.lisp
@@
-518,8
+518,7
@@
(lambda (obj type size)
(when (eql type code-header-widetag)
(let ((words (truly-the fixnum (%code-code-size obj)))
(lambda (obj type size)
(when (eql type code-header-widetag)
(let ((words (truly-the fixnum (%code-code-size obj)))
- (sap (truly-the system-area-pointer
- (%primitive code-instructions obj)))
+ (sap (%primitive code-instructions obj))
(size size))
(declare (fixnum size))
(incf total-bytes size)
(size size))
(declare (fixnum size))
(incf total-bytes size)