diff --git a/compiler/rt/sap.lisp b/compiler/rt/sap.lisp index ccc80d70678d03fd1c4dacba69523df6f3b7970b..3c18deb7a36c38f355979e639bfeb7e94988c2e9 100644 --- a/compiler/rt/sap.lisp +++ b/compiler/rt/sap.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman (FAHLMAN@CMUC). ;;; ********************************************************************** ;;; -;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/rt/sap.lisp,v 1.11 1992/03/10 09:01:21 wlott Exp $ +;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/rt/sap.lisp,v 1.12 1992/03/10 09:22:49 wlott Exp $ ;;; ;;; This file contains the IBM RT VM definition of SAP operations. ;;; @@ -262,7 +262,7 @@ ;;; (the machines address units). Translate and signed-translate are the Lisp ;;; function calls for which these VOP's are in-line expansions. ;;; -(defmacro define-system-set (name size translate data-scs data-type) +(defmacro define-system-set (name size translate data-sc data-type) (let ((set-form (ecase size (:byte '(inst stc data base offset)) @@ -274,11 +274,11 @@ (:policy :fast-safe) (:translate ,translate) (:args (base :scs (sap-reg)) - (data :scs (,@data-scs) :target result :to (:result 0))) + (data :scs (,data-sc) :target result :to (:result 0))) (:arg-types system-area-pointer (:constant (unsigned-byte 15)) ,data-type) - (:results (result :scs (,@data-scs))) + (:results (result :scs (,data-sc))) (:result-types ,data-type) (:info offset) (:generator 5 @@ -290,11 +290,11 @@ (:translate ,translate) (:args (object :scs (sap-reg) :to (:eval 0)) (offset :scs (unsigned-reg) :target base) - (data :scs (,@data-scs) :target result + (data :scs (,data-sc) :target result :to (:eval 1))) (:arg-types system-area-pointer positive-fixnum ,data-type) (:temporary (:scs (sap-reg) :from (:argument 1) :to (:eval 2)) base) - (:results (result :scs (,@data-scs))) + (:results (result :scs (,data-sc))) (:result-types ,data-type) (:generator 7 (move base offset) @@ -306,10 +306,10 @@ ) ;EVAL-WHEN (define-system-set 8bit-system-set :byte %set-sap-ref-8 - (unsigned-reg) positive-fixnum) + unsigned-reg positive-fixnum) (define-system-set 16bit-system-set :halfword %set-sap-ref-16 - (unsigned-reg) positive-fixnum) + unsigned-reg positive-fixnum) (define-system-set 32bit-system-set :word %set-sap-ref-32 unsigned-reg unsigned-num)