X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Falpha-vm.lisp;h=71f99b57151b428243b6b76c4c96bfc937f7eabd;hb=b9519773faa7b3c98915eccb9cb1fd8a8270ee56;hp=8373714948cd19d76f08e7aa1e80a256bf3c0808;hpb=4898ef32c639b1c7f4ee13a5ba566ce6debd03e6;p=sbcl.git

diff --git a/src/code/alpha-vm.lisp b/src/code/alpha-vm.lisp
index 8373714..71f99b5 100644
--- a/src/code/alpha-vm.lisp
+++ b/src/code/alpha-vm.lisp
@@ -28,8 +28,7 @@
   (unless (zerop (rem offset n-word-bytes))
     (error "Unaligned instruction?  offset=#x~X." offset))
   (sb!sys:without-gcing
-   (let ((sap (truly-the system-area-pointer
-                         (%primitive code-instructions code))))
+   (let ((sap (%primitive code-instructions code)))
      (ecase kind
        (:jmp-hint
         (aver (zerop (ldb (byte 2 0) value)))