From 59a5d0bc0a859ac526c00db1311ea9622f7baaab Mon Sep 17 00:00:00 2001
From: toy <toy>
Date: Wed, 14 May 2003 14:28:17 +0000
Subject: [PATCH] Make the standard Sparc register names be symbols so that
 *print-case* will be honored when printing out the register names.

---
 compiler/sparc/insts.lisp | 14 +++++++++-----
 1 file changed, 9 insertions(+), 5 deletions(-)

diff --git a/compiler/sparc/insts.lisp b/compiler/sparc/insts.lisp
index 6219f80c1..307e6b65c 100644
--- a/compiler/sparc/insts.lisp
+++ b/compiler/sparc/insts.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/insts.lisp,v 1.39 2003/02/25 17:05:12 toy Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/insts.lisp,v 1.40 2003/05/14 14:28:17 toy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -104,10 +104,14 @@ Otherwise, use the Sparc register names")
   "The Lisp names for the Sparc integer registers")
 
 (defparameter sparc-reg-symbols
-  #("%G0" "%G1" "%G2" "%G3" "%G4" "%G5" NIL NIL
-    "%O0" "%O1" "%O2" "%O3" "%O4" "%O5" "%O6" "%O7"
-    "%L0" "%L1" "%L2" "%L3" "%L4" "%L5" "%L6" "%L7"
-    "%I0" "%I1" "%I2" "%I3" "%I4" "%I5" NIL "%I7")
+  (map 'vector
+       #'(lambda (name)
+	   (cond ((null name) nil)
+		 (t (make-symbol (concatenate 'string "%" name)))))
+       #("G0" "G1" "G2" "G3" "G4" "G5" "G6" "G7"
+	 "O0" "O1" "O2" "O3" "O4" "O5" "O6" "O7"
+	 "L0" "L1" "L2" "L3" "L4" "L5" "L6" "L7"
+	 "I0" "I1" "I2" "I3" "I4" "I5" "I6" "I7"))
   "The standard names for the Sparc integer registers")
     
 (defun get-reg-name (index)
-- 
GitLab