From b722a48cca28decde7a58a252361a35e43f80750 Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Fri, 9 Nov 1990 23:09:52 +0000
Subject: [PATCH] Changed a %primitive 8bit-system-ref to a system:sap-ref-8.

---
 hemlock/linimage.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/hemlock/linimage.lisp b/hemlock/linimage.lisp
index ee4b6e935..bf04b9431 100644
--- a/hemlock/linimage.lisp
+++ b/hemlock/linimage.lisp
@@ -193,7 +193,7 @@
 
 (defmacro u-vec-get-rep (u-vec index)
   `(svref *print-representation-vector*
-	  (%primitive 8bit-system-ref ,u-vec ,index)))
+	  (system:sap-ref-8 ,u-vec ,index)))
 
 ;;; display-losing-chars  --  Internal
 ;;;
-- 
GitLab