X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Froom.lisp;h=bb91438454d45d4a39e1fcccb0d18e8e72d40492;hb=367316f5f21281204393853910848fea7fb9a6ab;hp=87770c1c0551f0dfac6dd5b1020cfe501d80e7e7;hpb=b68b6c67c462e90775118cd66a6fb8b55afb2d8c;p=sbcl.git

diff --git a/src/code/room.lisp b/src/code/room.lisp
index 87770c1..bb91438 100644
--- 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)))
-               (sap (truly-the system-area-pointer
-                               (%primitive code-instructions obj)))
+               (sap (%primitive code-instructions obj))
                (size size))
            (declare (fixnum size))
            (incf total-bytes size)