[armedbear-cvs] r12624 - trunk/abcl/src/org/armedbear/lisp

[Mark Evenson]

Author: mevenson
Date: Sun Apr 18 06:01:56 2010
New Revision: 12624

Log:
Pretty print output to system.lisp.



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

Modified: trunk/abcl/src/org/armedbear/lisp/compile-system.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/compile-system.lisp	(original)
+++ trunk/abcl/src/org/armedbear/lisp/compile-system.lisp	Sun Apr 18 06:01:56 2010
@@ -297,8 +297,8 @@
          (java (format nil "~A../../../**/*.*" home)))
     (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))))