From 3d6c9471ba859282c7990ecd02da150e872efb39 Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Fri, 21 Feb 1992 23:13:42 +0000
Subject: [PATCH] typo.

---
 code/sap.lisp          | 4 ++--
 compiler/mips/sap.lisp | 4 ++--
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/code/sap.lisp b/code/sap.lisp
index d19b90558..387a0d999 100644
--- a/code/sap.lisp
+++ b/code/sap.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/sap.lisp,v 1.7 1992/02/21 22:00:07 wlott Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/sap.lisp,v 1.8 1992/02/21 23:13:42 wlott Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -23,7 +23,7 @@
 
 (in-package "KERNEL")
 (export '(%set-sap-ref-sap %set-sap-ref-single %set-sap-ref-double
-	  %set-sap-ref-8 %signed-set-sap-ref-8
+	  %set-sap-ref-8 %set-signed-sap-ref-8
 	  %set-sap-ref-16 %set-signed-sap-ref-16
 	  %set-sap-ref-32 %set-signed-sap-ref-32))
 (in-package "SYSTEM")
diff --git a/compiler/mips/sap.lisp b/compiler/mips/sap.lisp
index ee353968d..aa76b32ae 100644
--- a/compiler/mips/sap.lisp
+++ b/compiler/mips/sap.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/sap.lisp,v 1.20 1992/02/21 22:02:50 wlott Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/sap.lisp,v 1.21 1992/02/21 23:13:10 wlott Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -162,7 +162,7 @@
   `(progn
      (define-vop (,ref-name)
        (:translate ,ref-name)
-       (:polify :fast-safe)
+       (:policy :fast-safe)
        (:args (sap-arg :scs (sap-reg) :target sap)
 	      (offset :scs (unsigned-reg negative-immediate zero immediate)))
        (:arg-types system-area-pointer unsigned-num)
-- 
GitLab