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

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