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