From 62421e586aafd4afff099faf09f6d647e0b13898 Mon Sep 17 00:00:00 2001
From: Douglas Katzman <dougk@google.com>
Date: Thu, 26 Jan 2017 13:00:13 -0500
Subject: [PATCH] Remove noise - CODE-INSTRUCTIONS is a translated function.

---
 src/code/alpha-vm.lisp | 2 +-
 src/code/arm-vm.lisp   | 2 +-
 src/code/arm64-vm.lisp | 2 +-
 src/code/hppa-vm.lisp  | 2 +-
 src/code/mips-vm.lisp  | 2 +-
 src/code/ppc-vm.lisp   | 2 +-
 src/code/sparc-vm.lisp | 2 +-
 7 files changed, 7 insertions(+), 7 deletions(-)

diff --git a/src/code/alpha-vm.lisp b/src/code/alpha-vm.lisp
index 17d5476d2..eac712fe1 100644
--- a/src/code/alpha-vm.lisp
+++ b/src/code/alpha-vm.lisp
@@ -24,7 +24,7 @@
   (unless (zerop (rem offset n-word-bytes))
     (error "Unaligned instruction?  offset=#x~X." offset))
   (without-gcing
-   (let ((sap (%primitive code-instructions code)))
+   (let ((sap (code-instructions code)))
      (ecase kind
        (:jmp-hint
         (aver (zerop (ldb (byte 2 0) value)))
diff --git a/src/code/arm-vm.lisp b/src/code/arm-vm.lisp
index 2831daa2b..af3530cf0 100644
--- a/src/code/arm-vm.lisp
+++ b/src/code/arm-vm.lisp
@@ -18,7 +18,7 @@
   (unless (zerop (rem offset n-word-bytes))
     (error "Unaligned instruction?  offset=#x~X." offset))
   (sb!sys:without-gcing
-   (let ((sap (%primitive sb!kernel::code-instructions code)))
+   (let ((sap (code-instructions code)))
      (ecase kind
        (:absolute
         (setf (sap-ref-32 sap offset) fixup))))))
diff --git a/src/code/arm64-vm.lisp b/src/code/arm64-vm.lisp
index f87f24558..01a7804e9 100644
--- a/src/code/arm64-vm.lisp
+++ b/src/code/arm64-vm.lisp
@@ -18,7 +18,7 @@
   (unless (zerop (rem offset 4))
     (error "Unaligned instruction?  offset=#x~X." offset))
   (without-gcing
-    (let ((sap (%primitive code-instructions code)))
+    (let ((sap (code-instructions code)))
       (ecase kind
         (:absolute
          (setf (sap-ref-word sap offset) fixup))
diff --git a/src/code/hppa-vm.lisp b/src/code/hppa-vm.lisp
index 43c5bb98e..ef418b16f 100644
--- a/src/code/hppa-vm.lisp
+++ b/src/code/hppa-vm.lisp
@@ -14,7 +14,7 @@
   (unless (zerop (rem offset n-word-bytes))
     (error "Unaligned instruction?  offset=#x~X." offset))
   (without-gcing
-   (let* ((sap (%primitive code-instructions code))
+   (let* ((sap (code-instructions code))
           (inst (sap-ref-32 sap offset)))
      (setf (sap-ref-32 sap offset)
            (ecase kind
diff --git a/src/code/mips-vm.lisp b/src/code/mips-vm.lisp
index cabfcc763..00194840b 100644
--- a/src/code/mips-vm.lisp
+++ b/src/code/mips-vm.lisp
@@ -20,7 +20,7 @@
   (unless (zerop (rem offset n-word-bytes))
     (error "Unaligned instruction?  offset=#x~X." offset))
   (without-gcing
-   (let ((sap (%primitive sb!c::code-instructions code)))
+   (let ((sap (code-instructions code)))
      (ecase kind
        (:absolute
         (setf (sap-ref-32 sap offset) fixup))
diff --git a/src/code/ppc-vm.lisp b/src/code/ppc-vm.lisp
index e7177b23e..18f8ff600 100644
--- a/src/code/ppc-vm.lisp
+++ b/src/code/ppc-vm.lisp
@@ -18,7 +18,7 @@
   (unless (zerop (rem offset n-word-bytes))
     (error "Unaligned instruction?  offset=#x~X." offset))
   (without-gcing
-   (let ((sap (%primitive code-instructions code)))
+   (let ((sap (code-instructions code)))
      (ecase kind
        (:absolute
         (setf (sap-ref-32 sap offset) fixup))
diff --git a/src/code/sparc-vm.lisp b/src/code/sparc-vm.lisp
index 1f8128e4a..a7b5d9ed4 100644
--- a/src/code/sparc-vm.lisp
+++ b/src/code/sparc-vm.lisp
@@ -24,7 +24,7 @@
   (unless (zerop (rem offset n-word-bytes))
     (error "Unaligned instruction?  offset=#x~X." offset))
   (without-gcing
-   (let ((sap (%primitive code-instructions code)))
+   (let ((sap (code-instructions code)))
      (ecase kind
        (:call
         (error "Can't deal with CALL fixups, yet."))
-- 
2.11.4.GIT