diff --git a/code/sap.lisp b/code/sap.lisp index d19b90558a89c561b70e10c1313300ad5519241f..387a0d9992ff849286d37549191f84cf3ad56abb 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 ee353968d5f16389a21bbe3252c2b4f759da8b49..aa76b32aea227e270c44bb4fe8b60c4e4560e199 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)