0.9.1.54: dynamic-extent lists and closures on ppc

[sbcl.git] / src / compiler / assem.lisp

diff --git a/src/compiler/assem.lisp b/src/compiler/assem.lisp
index cdf3d1c..3dd4a95 100644 (file)
--- 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)))))