Added setting *print-right-margin* in inferior sbcl.

Pascal J. Bourguignon [2015-07-29 20:02]
Added setting *print-right-margin* in inferior sbcl.
Filename
tools/try-systems.lisp
diff --git a/tools/try-systems.lisp b/tools/try-systems.lisp
index 1dc73d0..55384df 100644
--- a/tools/try-systems.lisp
+++ b/tools/try-systems.lisp
@@ -155,6 +155,7 @@
                                                :if-exists :supersede)
                    (let ((*print-pretty*   t)
                          (*print-readably* t))
+                     (format src "(setf *print-right-margin* 160)~%")
                      (format src "(setf asdf:*central-registry* '~S)~%" (quicklisp-registry))))
     :do (loop
           :for asd-system :in systems
ViewGit