Changeset 11292


Ignore:
Timestamp:
08/31/08 00:52:09 (14 years ago)
Author:
ehuelsmann
Message:

Add 'package.lisp' to hold package functions which signal continuable errors as required per the spec.

Resolves MAKE-PACKAGE.ERROR.x from the ansi-tests.

Location:
trunk/j/src/org/armedbear/lisp
Files:
1 added
3 edited

Legend:

Unmodified
Added
Removed
  • trunk/j/src/org/armedbear/lisp/PackageFunctions.java

    r11288 r11292  
    7878    };
    7979
    80     // ### import
    81     // import symbols &optional package => t
    82     private static final Primitive IMPORT =
    83         new Primitive("import", "symbols &optional package")
     80    // ### %import
     81    // %import symbols &optional package => t
     82    private static final Primitive _IMPORT =
     83        new Primitive("%import", PACKAGE_SYS, false)
    8484    {
    8585        public LispObject execute(LispObject[] args) throws ConditionThrowable
  • trunk/j/src/org/armedbear/lisp/boot.lisp

    r11288 r11292  
    130130(load-system-file "macros")
    131131
     132;; Redefined in package.lisp
    132133(defun make-package (package-name &key nicknames use)
    133134  (%make-package package-name nicknames use))
     
    293294(load-system-file "pprint")
    294295(load-system-file "defsetf")
     296(load-system-file "package")
     297
    295298
    296299(defun preload-package (pkg)
  • trunk/j/src/org/armedbear/lisp/compile-system.lisp

    r11288 r11292  
    191191                                     "parse-lambda-list.lisp"
    192192                                     "pathnames.lisp"
     193                                     ;;"package.lisp"
    193194                                     ;;"print-object.lisp"
    194195                                     "print-unreadable-object.lisp"
Note: See TracChangeset for help on using the changeset viewer.