X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fppc-vm.lisp;h=1a876d6bbffeb2ff9193f82622bc8935eca27354;hb=2a03fda8299baea66cb9a6955d414dcc27af5ac9;hp=52cfe551fc4501462bf338a3eeea9e84c8132eed;hpb=1071bf1ca8292aeeef4a684d277f1e6b4693865a;p=sbcl.git

diff --git a/src/code/ppc-vm.lisp b/src/code/ppc-vm.lisp
index 52cfe55..1a876d6 100644
--- a/src/code/ppc-vm.lisp
+++ b/src/code/ppc-vm.lisp
@@ -42,8 +42,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 sb!kernel::code-instructions code))))
+   (let ((sap (%primitive sb!kernel::code-instructions code)))
      (ecase kind
        (:b
         (error "Can't deal with CALL fixups, yet."))