diff --git a/compiler/sparc/insts.lisp b/compiler/sparc/insts.lisp
index 6219f80c1b2d5300c285e176814289686da82a6e..307e6b65ce915172002539969ffdb5a0810065e0 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)