Changeset 13999


Ignore:
Timestamp:
07/10/12 20:46:34 (8 years ago)
Author:
rschlatte
Message:

Introduce a "continue" restart for delete-package

  • Fixes ansi test DELETE-PACKAGE.6
Location:
trunk/abcl/src/org/armedbear/lisp
Files:
3 edited

Legend:

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

    r13814 r13999  
    382382        autoload("cosh", "MathFunctions");
    383383        autoload("delete-file", "delete_file");
    384         autoload("delete-package", "PackageFunctions");
     384        autoload("%delete-package", "PackageFunctions");
    385385        autoload("echo-stream-input-stream", "EchoStream");
    386386        autoload("echo-stream-output-stream", "EchoStream");
  • trunk/abcl/src/org/armedbear/lisp/PackageFunctions.java

    r13461 r13999  
    205205    };
    206206
    207     // ### delete-package
    208     private static final Primitive DELETE_PACKAGE =
    209         new Primitive("delete-package", "package")
     207    // ### %delete-package
     208    private static final Primitive _DELETE_PACKAGE =
     209        new Primitive("%delete-package", PACKAGE_SYS, false)
    210210    {
    211211        @Override
  • trunk/abcl/src/org/armedbear/lisp/package.lisp

    r13763 r13999  
    9494  T)
    9595
     96(defun delete-package (package)
     97  (with-simple-restart (continue "Ignore missing package.")
     98    (sys::%delete-package package)))
Note: See TracChangeset for help on using the changeset viewer.