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 6b68100..3dd4a95 100644 (file)
--- a/src/compiler/assem.lisp
+++ b/src/compiler/assem.lisp
@@ -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)))))