X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Froom.lisp;h=c7696b221ed97b733b8bf8c2ae9f9ba6e480c0d6;hb=7c5138fcbdb302abc563a2060493f2f0304ae902;hp=cf18258014261cb0dc983574f013fd00dd0654ad;hpb=3c5609fe910bae51ff885c8cfd4be879151e7489;p=sbcl.git

diff --git a/src/code/room.lisp b/src/code/room.lisp
index cf18258..c7696b2 100644
--- a/src/code/room.lisp
+++ b/src/code/room.lisp
@@ -72,7 +72,8 @@
 			    :kind :fixed
 			    :length size))))))
 
-(dolist (code (list complex-base-string-widetag simple-array-widetag
+(dolist (code (list #!+sb-unicode complex-character-string-widetag
+                    complex-base-string-widetag simple-array-widetag
 		    complex-bit-vector-widetag complex-vector-widetag
 		    complex-array-widetag complex-vector-nil-widetag))
   (setf (svref *meta-room-info* code)
@@ -122,6 +123,12 @@
 		      :kind :string
 		      :length 0))
 
+#!+sb-unicode
+(setf (svref *meta-room-info* simple-character-string-widetag)
+      (make-room-info :name 'simple-character-string
+		      :kind :string
+		      :length 2))
+
 (setf (svref *meta-room-info* simple-array-nil-widetag)
       (make-room-info :name 'simple-array-nil
 		      :kind :fixed
@@ -467,6 +474,7 @@
 	     #.single-float-widetag
 	     #.double-float-widetag
 	     #.simple-base-string-widetag
+             #!+sb-unicode #.simple-character-string-widetag
 	     #.simple-array-nil-widetag
 	     #.simple-bit-vector-widetag
 	     #.simple-array-unsigned-byte-2-widetag