Changeset 12624

Timestamp:

04/18/10 10:01:56 (13 years ago)

Author:

Mark Evenson

Message:

Pretty print output to system.lisp.

File:

• trunk/abcl/src/org/armedbear/lisp/compile-system.lisp (modified) (1 diff)

trunk/abcl/src/org/armedbear/lisp/compile-system.lisp

@@ -298 +298 @@
     (with-open-file (s system :direction :output 
                        :if-exists :supersede)
-      (write `(setf (logical-pathname-translations "sys")
+      (pprint `(setf (logical-pathname-translations "sys")
                     '(("SYS:SRC;**;*.*" ,src)
                       ("SYS:JAVA;**;*.*" ,java)))
-       :stream s))))
+       s))))