From 1a92a21e9d7d2ff45b721589aad609b42110178d Mon Sep 17 00:00:00 2001
From: ch <ch>
Date: Sat, 24 Feb 1990 17:03:52 +0000
Subject: [PATCH] Changed IMMEDIATE-CONSTANT-SC to use VM:STATIC-SYMBOL-P.

---
 compiler/mips/vm.lisp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/compiler/mips/vm.lisp b/compiler/mips/vm.lisp
index 4ad474605..f9da42b2a 100644
--- a/compiler/mips/vm.lisp
+++ b/compiler/mips/vm.lisp
@@ -7,7 +7,7 @@
 ;;; Lisp, please contact Scott Fahlman (Scott.Fahlman@CS.CMU.EDU)
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/vm.lisp,v 1.9 1990/02/23 20:24:11 wlott Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/vm.lisp,v 1.10 1990/02/24 17:03:52 ch Exp $
 ;;;
 ;;; This file contains the VM definition for the MIPS R2000 and the new
 ;;; object format.
@@ -429,7 +429,7 @@
     ((integer #x1FFF #x3FFE)
      (sc-number-or-lose 'unsigned-immediate))
     (symbol
-     (if (member value vm:initial-symbols)
+     (if (vm:static-symbol-p value)
 	 (sc-number-or-lose 'random-immediate)
 	 nil))
     (fixnum
-- 
GitLab