Skip to content
Snippets Groups Projects
Commit 23bf875c authored by ram's avatar ram
Browse files

Add new kernel/lisp exports. Move standard PCL exports to LISP.

parent 6386a775
No related branches found
No related tags found
No related merge requests found
......@@ -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
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment