Changeset 3636


Ignore:
Timestamp:
09/09/03 13:34:13 (19 years ago)
Author:
piso
Message:

PACKAGE_INTERNAL_SYMBOLS, PACKAGE_EXTERNAL_SYMBOLS, PACKAGE_INHERITED_SYMBOLS

File:
1 edited

Legend:

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

    r3632 r3636  
    33 *
    44 * Copyright (C) 2002-2003 Peter Graves
    5  * $Id: Primitives.java,v 1.379 2003-09-08 18:28:48 piso Exp $
     5 * $Id: Primitives.java,v 1.380 2003-09-09 13:34:13 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    29632963    };
    29642964
     2965    // ### package-internal-symbols
     2966    private static final Primitive1 PACKAGE_INTERNAL_SYMBOLS =
     2967        new Primitive1("package-internal-symbols", PACKAGE_SYS, false) {
     2968        public LispObject execute(LispObject arg) throws Condition
     2969        {
     2970            return coerceToPackage(arg).PACKAGE_INTERNAL_SYMBOLS();
     2971        }
     2972    };
     2973
     2974    // ### package-external-symbols
     2975    private static final Primitive1 PACKAGE_EXTERNAL_SYMBOLS =
     2976        new Primitive1("package-external-symbols", PACKAGE_SYS, false) {
     2977        public LispObject execute(LispObject arg) throws Condition
     2978        {
     2979            return coerceToPackage(arg).PACKAGE_EXTERNAL_SYMBOLS();
     2980        }
     2981    };
     2982
     2983    // ### package-inherited-symbols
     2984    private static final Primitive1 PACKAGE_INHERITED_SYMBOLS =
     2985        new Primitive1("package-inherited-symbols", PACKAGE_SYS, false) {
     2986        public LispObject execute(LispObject arg) throws Condition
     2987        {
     2988            return coerceToPackage(arg).PACKAGE_INHERITED_SYMBOLS();
     2989        }
     2990    };
     2991
    29652992    // ### export
    29662993    // export symbols &optional package
Note: See TracChangeset for help on using the changeset viewer.