From c8c85bd22045d7bcb504507d0e3e98f5197bf6a8 Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Sat, 14 Jul 1990 09:27:52 +0000
Subject: [PATCH] Don't try to use string-char-p when compiled with the
 new-comiler.  Just assume that all characters can be represented in the
 immediate-base-char SC.

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

diff --git a/compiler/mips/vm.lisp b/compiler/mips/vm.lisp
index 803b9c2e9..dc8311e7c 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.31 1990/06/17 22:28:27 wlott Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/vm.lisp,v 1.32 1990/07/14 09:27:52 wlott Exp $
 ;;;
 ;;; This file contains the VM definition for the MIPS R2000 and the new
 ;;; object format.
@@ -549,9 +549,12 @@
     (system-area-pointer
      (sc-number-or-lose 'immediate-sap))
     (character
+     #-new-compiler
      (if (string-char-p value)
 	 (sc-number-or-lose 'immediate-base-character)
-	 nil))))
+	 nil)
+     #+new-compiler
+     (sc-number-or-lose 'immediate-base-character))))
 
 
 ;;;; Function Call Parameters
-- 
GitLab