Changeset 12392


Ignore:
Timestamp:
01/23/10 09:26:24 (11 years ago)
Author:
ehuelsmann
Message:

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.

Location:
trunk/abcl/src/org/armedbear/lisp
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/Lisp.java

    r12362 r12392  
    26112611  }
    26122612
     2613  static
     2614  {
     2615    Symbol.LAMBDA_LIST_KEYWORDS
     2616      .initializeConstant(list(Symbol.AND_OPTIONAL,
     2617                               Symbol.AND_REST,
     2618                               Symbol.AND_KEY,
     2619                               Symbol.AND_AUX,
     2620                               Symbol.AND_BODY,
     2621                               Symbol.AND_WHOLE,
     2622                               Symbol.AND_ALLOW_OTHER_KEYS,
     2623                               Symbol.AND_ENVIRONMENT));
     2624  }
     2625
    26132626  // ### call-registers-limit
    26142627  public static final Symbol CALL_REGISTERS_LIMIT =
  • trunk/abcl/src/org/armedbear/lisp/boot.lisp

    r12380 r12392  
    166166(load-system-file "defpackage")
    167167(load-system-file "define-modify-macro")
    168 
    169 (defconstant lambda-list-keywords
    170   '(&optional &rest &key &aux &body &whole &allow-other-keys &environment))
    171 
    172168(load-system-file "require")
    173169(load-system-file "defstruct")
     
    192188(load-system-file "package")
    193189
    194 (defun preload-package (pkg)
    195   (%format t "Preloading ~S~%" (find-package pkg))
    196   (dolist (sym (package-symbols pkg))
    197     (when (autoloadp sym)
    198       (resolve sym))))
    199 
    200190(unless (featurep :j)
    201191  (unless *noinform*
Note: See TracChangeset for help on using the changeset viewer.