diff --git a/code/exports.lisp b/code/exports.lisp index 38a7790f84cab466ac0ded285fbc6a68e6cdff92..8dff7f6bdeea6d1b49f3e948e94f34330fe84e7a 100644 --- a/code/exports.lisp +++ b/code/exports.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/exports.lisp,v 1.89 1993/06/17 22:17:23 wlott Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/exports.lisp,v 1.90 1993/07/22 10:42:42 ram Exp $") ;;; ;;; ********************************************************************** ;;; @@ -39,7 +39,7 @@ (make-package "PCL" :nicknames 'nil :use nil)) (shadow '("DOCUMENTATION" "DESTRUCTURING-BIND" "FIND-CLASS" "CLASS-NAME" "CLASS-OF" "CLASS" "BUILT-IN-CLASS" "STRUCTURE-CLASS" - "STRUCTURE-OBJECT") + "STRUCTURE-OBJECT" "STANDARD-CLASS" "DOTIMES") "PCL") (if (find-package "FORMAT") (rename-package "FORMAT" "FORMAT" 'nil) @@ -458,23 +458,7 @@ (:shadow "DESTRUCTURING-BIND" "DOCUMENTATION" "FIND-CLASS" "CLASS-NAME" "CLASS-OF" "CLASS" "BUILT-IN-CLASS" "STRUCTURE-CLASS" - "STRUCTURE-OBJECT") - (:export "ADD-METHOD" "CALL-METHOD" - "CALL-NEXT-METHOD" "CHANGE-CLASS" - "COMPUTE-APPLICABLE-METHODS" "DEFCLASS" "DEFGENERIC" - "DEFINE-METHOD-COMBINATION" "DEFMETHOD" "ENSURE-GENERIC-FUNCTION" - "FIND-METHOD" "FUNCTION-KEYWORDS" "GENERIC-FLET" - "GENERIC-LABELS" "INITIALIZE-INSTANCE" "INVALID-METHOD-ERROR" - "MAKE-INSTANCE" "MAKE-INSTANCES-OBSOLETE" - "METHOD-COMBINATION-ERROR" "METHOD-QUALIFIERS" "NEXT-METHOD-P" - "NO-APPLICABLE-METHOD" "NO-NEXT-METHOD" "PRINT-OBJECT" - "REINITIALIZE-INSTANCE" "REMOVE-METHOD" "SHARED-INITIALIZE" - "SLOT-BOUNDP" "SLOT-EXISTS-P" "SLOT-MAKUNBOUND" "SLOT-MISSING" - "SLOT-UNBOUND" "SLOT-VALUE" "STANDARD" "STANDARD-CLASS" - "STANDARD-GENERIC-FUNCTION" "STANDARD-METHOD" "STANDARD-OBJECT" - "UPDATE-INSTANCE-FOR-DIFFERENT-CLASS" - "UPDATE-INSTANCE-FOR-REDEFINED-CLASS" "WITH-ACCESSORS" - "WITH-ADDED-METHODS" "WITH-SLOTS")) + "STRUCTURE-OBJECT" "STANDARD-CLASS" "DOCUMENTATION")) (defpackage "FORMAT") (defpackage "HEMLOCK" (:nicknames "ED")) (defpackage "SPELL" @@ -746,7 +730,31 @@ "FIND-CLASS" "BROADCAST-STREAM" "CHAR-INT" - "DELETE-PACKAGE")) + "DELETE-PACKAGE" + + "ADD-METHOD" "CALL-METHOD" + "CALL-NEXT-METHOD" "CHANGE-CLASS" + "COMPUTE-APPLICABLE-METHODS" "DEFCLASS" "DEFGENERIC" + "DEFINE-METHOD-COMBINATION" "DEFMETHOD" "ENSURE-GENERIC-FUNCTION" + "FIND-METHOD" "FUNCTION-KEYWORDS" "GENERIC-FLET" + "GENERIC-LABELS" "INITIALIZE-INSTANCE" "INVALID-METHOD-ERROR" + "MAKE-INSTANCE" "MAKE-INSTANCES-OBSOLETE" + "METHOD-COMBINATION-ERROR" "METHOD-QUALIFIERS" "NEXT-METHOD-P" + "NO-APPLICABLE-METHOD" "NO-NEXT-METHOD" "PRINT-OBJECT" + "REINITIALIZE-INSTANCE" "REMOVE-METHOD" "SHARED-INITIALIZE" + "SLOT-BOUNDP" "SLOT-EXISTS-P" "SLOT-MAKUNBOUND" "SLOT-MISSING" + "SLOT-UNBOUND" "SLOT-VALUE" "STANDARD" "STANDARD-CLASS" + "STANDARD-GENERIC-FUNCTION" "STANDARD-METHOD" "STANDARD-OBJECT" + "UPDATE-INSTANCE-FOR-DIFFERENT-CLASS" + "UPDATE-INSTANCE-FOR-REDEFINED-CLASS" "WITH-ACCESSORS" + "WITH-ADDED-METHODS" "WITH-SLOTS" + "PARSE-ERROR" "CELL-ERROR-NAME" "SIMPLE-CONDITION-FORMAT-CONTROL" + "STREAM-EXTERNAL-FORMAT" "FILE-STRING-LENGTH" + "WITH-CONDITION-RESTARTS" "COMMON" "HASH-TABLE-WEAK-P" + "GET-SETF-EXPANSION" "STYLE-WARNING" "SPECIAL-OPERATOR-P" + "COMPILER-MACRO" "PRINT-NOT-READABLE-OBJECT" + "DEFINE-SETF-EXPANDER" "PRINT-NOT-READABLE")) + (defpackage "EVAL" (:export "*EVAL-STACK-TRACE*" "*INTERNAL-APPLY-NODE-TRACE*" "*INTERPRETED-FUNCTION-CACHE-MINIMUM-SIZE*" @@ -1752,84 +1760,46 @@ "%SET-SIGNED-SAP-REF-16" "FIND-CALLER-NAME" "OLD-IN-PACKAGE" "%SET-SYMBOL-VALUE" "%SET-SYMBOL-PACKAGE" "OUTPUT-SYMBOL-NAME" "FSET" "RAW-DEFINITION" "%IN-PACKAGE" "%SET-SIGNED-SAP-REF-32" - "INVOKE-MACROEXPAND-HOOK" - "TYPEDEF-INIT" - "DEFAULT-STRUCTURE-PRINT" - "LAYOUT" - "LAYOUT-LENGTH" - "RATIOP" - "FIXNUMP" - "LAMBDA-WITH-ENVIRONMENT" - "LAYOUT-PURE" - "DSD-RAW-TYPE" - "%COMPILER-DEFSTRUCT" - "DEFSTRUCT-DESCRIPTION" - "UNDEFINE-STRUCTURE" - "BIGNUMP" - "DD-COPIER" - "UNDEFINE-FUNCTION-NAME" - "DD-TYPE" - "%RAW-REF-SINGLE" - "CLASS-STATE" - "INSTANCE" - "%RAW-SET-DOUBLE" - "*TYPE-SYSTEM-INITIALIZED*" - "WEAK-POINTER-P" - "FIND-LAYOUT" - "DSD-NAME" - "%TYPEP" - "DD-RAW-INDEX" - "DD-NAME" - "CLASS-SUBCLASSES" - "CLASS-LAYOUT" - "%RAW-REF-DOUBLE" - "DD-RAW-LENGTH" - "NOTE-NAME-DEFINED" - "%CODE-CODE-SIZE" - "DD-SLOTS" - "%IMAGPART" - "DSD-ACCESSOR" - "CLASS-INIT" - "%CODE-DEBUG-INFO" - "DSD-%NAME" - "LAYOUT-CLASS" - "LAYOUT-INVALID" - "%FUNCTION-NAME" - "DSD-TYPE" - "%INSTANCEP" - "DEFSTRUCT-SLOT-DESCRIPTION" - "%RAW-SET-SINGLE" - "MAKE-STRUCTURE-LOAD-FORM" - "BITP" - "%FUNCTION-ARGLIST" - "%FUNCTION-NEXT" - "LAYOUT-HASH-LENGTH" - "DD-PREDICATE" - "CLASS-PROPER-NAME" - "%NOTE-TYPE-DEFINED" - "LAYOUT-INFO" - "%SET-INSTANCE-LAYOUT" - "DD-DEFAULT-CONSTRUCTOR" - "LAYOUT-OF" - "%FUNCTION-SELF" - "%REALPART" - "STRUCTURE-CLASS-P" - "DSD-INDEX" - "%INSTANCE-LAYOUT" - "LAYOUT-HASH" - "%FUNCTION-TYPE" - "DEFINE-FUNCTION-NAME" - "LAYOUT-INHERITANCE-DEPTH" - "%%COMPILER-DEFSTRUCT" - "%NUMERATOR" - "CLASS-TYPEP" - "STRUCTURE-CLASS-PRINT-FUNCTION" - "DSD-READ-ONLY" - "LAYOUT-INHERITS" - "DD-LENGTH" - "%CODE-ENTRY-POINTS" - "STRUCTURE-CLASS-MAKE-LOAD-FORM-FUN" - "%DENOMINATOR")) + "INVOKE-MACROEXPAND-HOOK" "TYPEDEF-INIT" "DEFAULT-STRUCTURE-PRINT" + "LAYOUT" "LAYOUT-LENGTH" "RATIOP" "FIXNUMP" + "LAMBDA-WITH-ENVIRONMENT" "LAYOUT-PURE" "DSD-RAW-TYPE" + "%COMPILER-DEFSTRUCT" "DEFSTRUCT-DESCRIPTION" "UNDEFINE-STRUCTURE" + "BIGNUMP" "DD-COPIER" "UNDEFINE-FUNCTION-NAME" "DD-TYPE" + "%RAW-REF-SINGLE" "CLASS-STATE" "INSTANCE" "%RAW-SET-DOUBLE" + "*TYPE-SYSTEM-INITIALIZED*" "WEAK-POINTER-P" "FIND-LAYOUT" + "DSD-NAME" "%TYPEP" "DD-RAW-INDEX" "DD-NAME" "CLASS-SUBCLASSES" + "CLASS-LAYOUT" "%RAW-REF-DOUBLE" "DD-RAW-LENGTH" "NOTE-NAME-DEFINED" + "%CODE-CODE-SIZE" "DD-SLOTS" "%IMAGPART" "DSD-ACCESSOR" "CLASS-INIT" + "%CODE-DEBUG-INFO" "DSD-%NAME" "LAYOUT-CLASS" "LAYOUT-INVALID" + "%FUNCTION-NAME" "DSD-TYPE" "%INSTANCEP" + "DEFSTRUCT-SLOT-DESCRIPTION" "%RAW-SET-SINGLE" + "MAKE-STRUCTURE-LOAD-FORM" "BITP" "%FUNCTION-ARGLIST" + "%FUNCTION-NEXT" "LAYOUT-HASH-LENGTH" "DD-PREDICATE" + "CLASS-PROPER-NAME" "%NOTE-TYPE-DEFINED" "LAYOUT-INFO" + "%SET-INSTANCE-LAYOUT" "DD-DEFAULT-CONSTRUCTOR" "LAYOUT-OF" + "%FUNCTION-SELF" "%REALPART" "STRUCTURE-CLASS-P" "DSD-INDEX" + "%INSTANCE-LAYOUT" "LAYOUT-HASH" "%FUNCTION-TYPE" + "DEFINE-FUNCTION-NAME" "LAYOUT-INHERITANCE-DEPTH" + "%%COMPILER-DEFSTRUCT" "%NUMERATOR" "CLASS-TYPEP" + "STRUCTURE-CLASS-PRINT-FUNCTION" "DSD-READ-ONLY" "LAYOUT-INHERITS" + "DD-LENGTH" "%CODE-ENTRY-POINTS" + "STRUCTURE-CLASS-MAKE-LOAD-FORM-FUN" "%DENOMINATOR" + "BYTE-FUNCTION-OR-CLOSURE" "MAKE-STANDARD-CLASS" + "BYTE-FUNCTION-NAME" "CLASS-CELL-TYPEP" "BYTE-CLOSURE" + "FIND-CLASS-CELL" "EXTRACT-FUNCTION-TYPE" + "FUNCALLABLE-STRUCTURE-CLASS" "%RANDOM-DOUBLE-FLOAT" + "RANDOM-PCL-CLASS" "BASIC-STRUCTURE-CLASS-PRINT-FUNCTION" + "%FUNCALLABLE-INSTANCE-INFO" "*EVAL-STACK*" "RANDOM-CHUNK" + "MAKE-FUNCALLABLE-STRUCTURE-CLASS" "LAYOUT-HASH-MAX" + "CLASS-CELL-NAME" "BUILT-IN-CLASS-DIRECT-SUPERCLASSES" + "INITIALIZE-BYTE-COMPILED-FUNCTION" "INITIALIZE-LAYOUT-HASH" + "CLASS-PCL-CLASS" "FUNCALLABLE-STRUCTURE" + "FUNCALLABLE-INSTANCE-FUNCTION" "%FUNCALLABLE-INSTANCE-LAYOUT" + "%RANDOM-SINGLE-FLOAT" "CLASS-CELL-CLASS" "BYTE-FUNCTION" + "BASIC-STRUCTURE-CLASS" "FUNCALLABLE-STRUCTURE-CLASS-P" + "BYTE-CLOSURE-FUNCTION" "REGISTER-LAYOUT" "BYTE-CLOSURE-DATA" + "FUNCALLABLE-INSTANCE" "RANDOM-FIXNUM-MAX" "MAKE-RANDOM-PCL-CLASS" + )) (dolist (name