Changeset 12624


Ignore:
Timestamp:
04/18/10 10:01:56 (12 years ago)
Author:
Mark Evenson
Message:

Pretty print output to system.lisp.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/compile-system.lisp

    r12618 r12624  
    298298    (with-open-file (s system :direction :output
    299299                       :if-exists :supersede)
    300       (write `(setf (logical-pathname-translations "sys")
     300      (pprint `(setf (logical-pathname-translations "sys")
    301301                    '(("SYS:SRC;**;*.*" ,src)
    302302                      ("SYS:JAVA;**;*.*" ,java)))
    303        :stream s))))
     303       s))))
    304304     
Note: See TracChangeset for help on using the changeset viewer.