X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fassem.lisp;h=797fd831ec23c9a77eaa54f520ad5e160a7f3ded;hb=c6fd5a650d63d358b182777ace8c42c8684f6f9b;hp=b19b2cc8c2d48ff49f4b0d177d2954e9a42331c5;hpb=08d05510b51708853ca998154d8096b21d85edab;p=sbcl.git

diff --git a/src/compiler/assem.lisp b/src/compiler/assem.lisp
index b19b2cc..797fd83 100644
--- a/src/compiler/assem.lisp
+++ b/src/compiler/assem.lisp
@@ -1547,7 +1547,8 @@
            (push (eval `(list (multiple-value-list
                                ,(sb!disassem:gen-printer-def-forms-def-form
                                  name
-                                 (format nil "~@:(~A[~A]~)" name args)
+                                 (let ((*print-right-margin* 1000))
+                                   (format nil "~@:(~A[~A]~)" name args))
                                  (cdr option-spec)))))
                  pdefs))
           (:printer-list
@@ -1560,7 +1561,8 @@
                                   `(multiple-value-list
                                     ,(sb!disassem:gen-printer-def-forms-def-form
                                       ',name
-                                      (format nil "~@:(~A[~A]~)" ',name printer)
+                                      (let ((*print-right-margin* 1000))
+                                        (format nil "~@:(~A[~A]~)" ',name printer))
                                       printer
                                       nil)))
                                 ,(cadr option-spec)))))