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

[Erik Huelsmann]

Author: ehuelsmann
Date: Sat Jan 23 04:26:24 2010
New Revision: 12392

Log:
Move a constant definition from boot.lisp to Java,
  as the precedent seems to be we have constants defined in Java.

Also remove an unused function from boot.lisp.

Modified:
   trunk/abcl/src/org/armedbear/lisp/Lisp.java
   trunk/abcl/src/org/armedbear/lisp/boot.lisp

Modified: trunk/abcl/src/org/armedbear/lisp/Lisp.java
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/Lisp.java	(original)
+++ trunk/abcl/src/org/armedbear/lisp/Lisp.java	Sat Jan 23 04:26:24 2010
@@ -2610,6 +2610,19 @@
     Symbol.INTERNAL_TIME_UNITS_PER_SECOND.initializeConstant(Fixnum.getInstance(1000));
   }
 
+  static
+  {
+    Symbol.LAMBDA_LIST_KEYWORDS
+      .initializeConstant(list(Symbol.AND_OPTIONAL,
+                               Symbol.AND_REST,
+                               Symbol.AND_KEY,
+                               Symbol.AND_AUX,
+                               Symbol.AND_BODY,
+                               Symbol.AND_WHOLE,
+                               Symbol.AND_ALLOW_OTHER_KEYS,
+                               Symbol.AND_ENVIRONMENT));
+  }
+
   // ### call-registers-limit
   public static final Symbol CALL_REGISTERS_LIMIT =
     exportConstant("CALL-REGISTERS-LIMIT", PACKAGE_SYS,

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	Sat Jan 23 04:26:24 2010
@@ -165,10 +165,6 @@
 (load-system-file "error")
 (load-system-file "defpackage")
 (load-system-file "define-modify-macro")
-
-(defconstant lambda-list-keywords
-  '(&optional &rest &key &aux &body &whole &allow-other-keys &environment))
-
 (load-system-file "require")
 (load-system-file "defstruct")
 
@@ -191,12 +187,6 @@
 (load-system-file "defsetf")
 (load-system-file "package")
 
-(defun preload-package (pkg)
-  (%format t "Preloading ~S~%" (find-package pkg))
-  (dolist (sym (package-symbols pkg))
-    (when (autoloadp sym)
-      (resolve sym))))
-
 (unless (featurep :j)
   (unless *noinform*
     (%format t "Startup completed in ~A seconds.~%"