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

[Erik Huelsmann]

Author: ehuelsmann
Date: Mon Oct 26 17:20:36 2009
New Revision: 12229

Log:
Move more to functions to the autoloader, to be loaded when necessary.

Modified:
   trunk/abcl/src/org/armedbear/lisp/autoloads.lisp
   trunk/abcl/src/org/armedbear/lisp/boot.lisp
   trunk/abcl/src/org/armedbear/lisp/compile-file.lisp
   trunk/abcl/src/org/armedbear/lisp/jvm.lisp
   trunk/abcl/src/org/armedbear/lisp/precompiler.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 17:20:36 2009
@@ -376,3 +376,29 @@
 (export 'compiler-let)
 (autoload 'compiler-let)
 
+
+(in-package "SYSTEM")
+
+;; #:SYSTEM in PRECOMPILER.LISP
+
+
+(export '(process-optimization-declarations
+          inline-p notinline-p inline-expansion expand-inline
+          note-name-defined precompile))
+(autoload '(process-optimization-declarations
+            inline-p notinline-p inline-expansion expand-inline
+            note-name-defined precompile) "precompiler")
+
+
+
+;; #:SYSTEM in SOURCE-TRANSFORM.LISP
+
+(export '(source-transform define-source-transform expand-source-transform))
+(autoload '(source-transform define-source-transform set-source-transform
+            expand-source-transform)
+    "source-transform")
+
+(in-package "PRECOMPILER")
+
+(export '(precompile-form precompile))
+(autoload '(precompile-form) "precompiler")
\ No newline at end of file

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 17:20:36 2009
@@ -159,9 +159,6 @@
 (load-system-file "compiler-macro")
 (load-system-file "subtypep")
 (load-system-file "typep")
-(load-system-file "compiler-error")
-(load-system-file "source-transform")
-(load-system-file "precompiler")
 (load-system-file "signal")
 (load-system-file "list")
 (load-system-file "sequences")

Modified: trunk/abcl/src/org/armedbear/lisp/compile-file.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/compile-file.lisp	(original)
+++ trunk/abcl/src/org/armedbear/lisp/compile-file.lisp	Mon Oct 26 17:20:36 2009
@@ -31,7 +31,8 @@
 
 (in-package #:system)
 
-(require '#:jvm)
+(require "JVM")
+;; (require "COMPILER-ERROR") already made accessible through JVM
 
 (defvar *fbound-names*)
 

Modified: trunk/abcl/src/org/armedbear/lisp/jvm.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/jvm.lisp	(original)
+++ trunk/abcl/src/org/armedbear/lisp/jvm.lisp	Mon Oct 26 17:20:36 2009
@@ -40,6 +40,7 @@
   (require "CLOS")
   (require "PRINT-OBJECT")
   (require "COMPILER-TYPES")
+  (require "COMPILER-ERROR")
   (require "KNOWN-FUNCTIONS")
   (require "KNOWN-SYMBOLS")
   (require "DUMP-FORM")

Modified: trunk/abcl/src/org/armedbear/lisp/precompiler.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/precompiler.lisp	(original)
+++ trunk/abcl/src/org/armedbear/lisp/precompiler.lisp	Mon Oct 26 17:20:36 2009
@@ -31,6 +31,7 @@
 
 (in-package "SYSTEM")
 
+
 (export '(*inline-declarations*
           process-optimization-declarations
           inline-p notinline-p inline-expansion expand-inline
@@ -473,7 +474,7 @@
 
 (defun precompile-progv (form)
   (if (< (length form) 3)
-      (compiler-error "Not enough arguments for ~S." 'progv)
+      (error "Not enough arguments for ~S." 'progv)
       (list* 'PROGV (mapcar #'precompile1 (%cdr form)))))
 
 (defun precompile-setf (form)