X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fassem.lisp;h=3dd4a959b57771f6155fc61079cf6c33f418bdfa;hb=16a6592367eec7c5e9da668ec42fd260e7705b0c;hp=cdf3d1c528e006c4946441b72e0be9f3b7a9349e;hpb=771b864c8f32af7734bc0550aeaf1539fc4df194;p=sbcl.git

diff --git a/src/compiler/assem.lisp b/src/compiler/assem.lisp
index cdf3d1c..3dd4a95 100644
--- a/src/compiler/assem.lisp
+++ b/src/compiler/assem.lisp
@@ -27,7 +27,7 @@
 ;;; This structure holds the state of the assembler.
 (defstruct (segment (:copier nil))
   ;; the name of this segment (for debugging output and stuff)
-  (name "unnamed" :type simple-base-string)
+  (name "unnamed" :type simple-string)
   ;; Ordinarily this is a vector where instructions are written. If
   ;; the segment is made invalid (e.g. by APPEND-SEGMENT) then the
   ;; vector can be replaced by NIL.
@@ -1567,7 +1567,7 @@
 	   (push (eval `(list (multiple-value-list
 			       ,(sb!disassem:gen-printer-def-forms-def-form
 				 name
-				 (format nil "~A[~A]" name args)
+				 (format nil "~@:(~A[~A]~)" name args)
 				 (cdr option-spec)))))
 		 pdefs))
 	  (:printer-list
@@ -1580,7 +1580,7 @@
 				  `(multiple-value-list
 				    ,(sb!disassem:gen-printer-def-forms-def-form
 				      ',name
-				      (format nil "~A[~A]" ',name printer)
+				      (format nil "~@:(~A[~A]~)" ',name printer)
 				      printer
 				      nil)))
 				,(cadr option-spec)))))