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

[Erik Huelsmann]

Author: ehuelsmann
Date: Mon Oct 26 18:41:29 2009
New Revision: 12230

Log:
More efficient startup: only autoload pprint[.lisp] if necessary.

Modified:
   trunk/abcl/src/org/armedbear/lisp/autoloads.lisp
   trunk/abcl/src/org/armedbear/lisp/boot.lisp
   trunk/abcl/src/org/armedbear/lisp/pprint.lisp

Modified: trunk/abcl/src/org/armedbear/lisp/autoloads.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/autoloads.lisp	(original)
+++ trunk/abcl/src/org/armedbear/lisp/autoloads.lisp	Mon Oct 26 18:41:29 2009
@@ -401,4 +401,28 @@
 (in-package "PRECOMPILER")
 
 (export '(precompile-form precompile))
-(autoload '(precompile-form) "precompiler")
\ No newline at end of file
+(autoload '(precompile-form) "precompiler")
+
+
+;; items in the XP package (pprint.lisp)
+
+(in-package "XP")
+
+(sys::autoload '(xp-structure-p write-string++ output-pretty-object
+                 pprint-logical-block+ maybe-initiate-xp-printing
+                 check-block-abbreviation start-block end-block
+                 pprint-pop-check+) "pprint")
+
+(sys::autoload-macro '(pprint-logical-block+ pprint-pop+) "pprint")
+
+(in-package "COMMON-LISP")
+
+(sys::autoload '(write print prin1 princ pprint write-to-string
+            prin1-to-string princ-to-string write-char
+            write-string write-line terpri finish-output
+            fresh-line force-output clear-output
+            pprint-newline pprint-indent pprint-tab pprint-linear
+            pprint-fill pprint-tabular) "pprint")
+
+(sys::autoload-macro '(pprint-logical-block) "pprint")
+

Modified: trunk/abcl/src/org/armedbear/lisp/boot.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/boot.lisp	(original)
+++ trunk/abcl/src/org/armedbear/lisp/boot.lisp	Mon Oct 26 18:41:29 2009
@@ -176,7 +176,6 @@
 (load-system-file "debug")
 (load-system-file "print")
 (load-system-file "pprint-dispatch")
-(load-system-file "pprint")
 (load-system-file "defsetf")
 (load-system-file "package")
 

Modified: trunk/abcl/src/org/armedbear/lisp/pprint.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/pprint.lisp	(original)
+++ trunk/abcl/src/org/armedbear/lisp/pprint.lisp	Mon Oct 26 18:41:29 2009
@@ -1358,7 +1358,7 @@
          (assert nil)
          (sys:output-object object stream))))
 
-(provide 'pprint)
+(provide "PPRINT")
 
 ;------------------------------------------------------------------------