From af75e1b6a9de5a014bf94a960db07b8def2a4dc4 Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Mon, 14 May 1990 07:15:58 +0000 Subject: [PATCH] Changed setf functions to %set- to keep from having to call fdefinition at runtime when there is type lossage --- compiler/mips/sap.lisp | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/compiler/mips/sap.lisp b/compiler/mips/sap.lisp index a569f1048..233a0ca40 100644 --- a/compiler/mips/sap.lisp +++ b/compiler/mips/sap.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman (FAHLMAN@CMUC). ;;; ********************************************************************** ;;; -;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/sap.lisp,v 1.10 1990/05/11 17:50:10 wlott Exp $ +;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/sap.lisp,v 1.11 1990/05/14 07:15:58 wlott Exp $ ;;; ;;; This file contains the MIPS VM definition of SAP operations. ;;; @@ -241,7 +241,7 @@ (:variant :long nil)) (define-vop (sap-system-set sap-set) - (:translate (setf sap-ref-sap)) + (:translate %set-sap-ref-sap) (:args (object :scs (sap-reg) :target sap) (offset :scs (descriptor-reg any-reg negative-immediate zero immediate)) @@ -261,7 +261,7 @@ (:variant :long t)) (define-vop (32bit-system-set sap-set) - (:translate (setf sap-ref-32)) + (:translate %set-sap-ref-32) (:variant :long)) @@ -274,7 +274,7 @@ (:variant :short t)) (define-vop (16bit-system-set sap-set) - (:translate (setf sap-ref-16)) + (:translate %set-sap-ref-16) (:variant :short)) @@ -287,7 +287,7 @@ (:variant :byte t)) (define-vop (8bit-system-set sap-set) - (:translate (setf sap-ref-8)) + (:translate %set-sap-ref-8) (:variant :byte)) -- GitLab