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 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;; ;;;
(ext:file-comment (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 @@ ...@@ -39,7 +39,7 @@
(make-package "PCL" :nicknames 'nil :use nil)) (make-package "PCL" :nicknames 'nil :use nil))
(shadow '("DOCUMENTATION" "DESTRUCTURING-BIND" "FIND-CLASS" "CLASS-NAME" (shadow '("DOCUMENTATION" "DESTRUCTURING-BIND" "FIND-CLASS" "CLASS-NAME"
"CLASS-OF" "CLASS" "BUILT-IN-CLASS" "STRUCTURE-CLASS" "CLASS-OF" "CLASS" "BUILT-IN-CLASS" "STRUCTURE-CLASS"
"STRUCTURE-OBJECT") "STRUCTURE-OBJECT" "STANDARD-CLASS" "DOTIMES")
"PCL") "PCL")
(if (find-package "FORMAT") (if (find-package "FORMAT")
(rename-package "FORMAT" "FORMAT" 'nil) (rename-package "FORMAT" "FORMAT" 'nil)
...@@ -458,23 +458,7 @@ ...@@ -458,23 +458,7 @@
(:shadow "DESTRUCTURING-BIND" "DOCUMENTATION" (:shadow "DESTRUCTURING-BIND" "DOCUMENTATION"
"FIND-CLASS" "CLASS-NAME" "CLASS-OF" "FIND-CLASS" "CLASS-NAME" "CLASS-OF"
"CLASS" "BUILT-IN-CLASS" "STRUCTURE-CLASS" "CLASS" "BUILT-IN-CLASS" "STRUCTURE-CLASS"
"STRUCTURE-OBJECT") "STRUCTURE-OBJECT" "STANDARD-CLASS" "DOCUMENTATION"))
(: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"))
(defpackage "FORMAT") (defpackage "FORMAT")
(defpackage "HEMLOCK" (:nicknames "ED")) (defpackage "HEMLOCK" (:nicknames "ED"))
(defpackage "SPELL" (defpackage "SPELL"
...@@ -746,7 +730,31 @@ ...@@ -746,7 +730,31 @@
"FIND-CLASS" "FIND-CLASS"
"BROADCAST-STREAM" "BROADCAST-STREAM"
"CHAR-INT" "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" (defpackage "EVAL"
(:export "*EVAL-STACK-TRACE*" "*INTERNAL-APPLY-NODE-TRACE*" (:export "*EVAL-STACK-TRACE*" "*INTERNAL-APPLY-NODE-TRACE*"
"*INTERPRETED-FUNCTION-CACHE-MINIMUM-SIZE*" "*INTERPRETED-FUNCTION-CACHE-MINIMUM-SIZE*"
...@@ -1752,84 +1760,46 @@ ...@@ -1752,84 +1760,46 @@
"%SET-SIGNED-SAP-REF-16" "FIND-CALLER-NAME" "OLD-IN-PACKAGE" "%SET-SIGNED-SAP-REF-16" "FIND-CALLER-NAME" "OLD-IN-PACKAGE"
"%SET-SYMBOL-VALUE" "%SET-SYMBOL-PACKAGE" "OUTPUT-SYMBOL-NAME" "%SET-SYMBOL-VALUE" "%SET-SYMBOL-PACKAGE" "OUTPUT-SYMBOL-NAME"
"FSET" "RAW-DEFINITION" "%IN-PACKAGE" "%SET-SIGNED-SAP-REF-32" "FSET" "RAW-DEFINITION" "%IN-PACKAGE" "%SET-SIGNED-SAP-REF-32"
"INVOKE-MACROEXPAND-HOOK" "INVOKE-MACROEXPAND-HOOK" "TYPEDEF-INIT" "DEFAULT-STRUCTURE-PRINT"
"TYPEDEF-INIT" "LAYOUT" "LAYOUT-LENGTH" "RATIOP" "FIXNUMP"
"DEFAULT-STRUCTURE-PRINT" "LAMBDA-WITH-ENVIRONMENT" "LAYOUT-PURE" "DSD-RAW-TYPE"
"LAYOUT" "%COMPILER-DEFSTRUCT" "DEFSTRUCT-DESCRIPTION" "UNDEFINE-STRUCTURE"
"LAYOUT-LENGTH" "BIGNUMP" "DD-COPIER" "UNDEFINE-FUNCTION-NAME" "DD-TYPE"
"RATIOP" "%RAW-REF-SINGLE" "CLASS-STATE" "INSTANCE" "%RAW-SET-DOUBLE"
"FIXNUMP" "*TYPE-SYSTEM-INITIALIZED*" "WEAK-POINTER-P" "FIND-LAYOUT"
"LAMBDA-WITH-ENVIRONMENT" "DSD-NAME" "%TYPEP" "DD-RAW-INDEX" "DD-NAME" "CLASS-SUBCLASSES"
"LAYOUT-PURE" "CLASS-LAYOUT" "%RAW-REF-DOUBLE" "DD-RAW-LENGTH" "NOTE-NAME-DEFINED"
"DSD-RAW-TYPE" "%CODE-CODE-SIZE" "DD-SLOTS" "%IMAGPART" "DSD-ACCESSOR" "CLASS-INIT"
"%COMPILER-DEFSTRUCT" "%CODE-DEBUG-INFO" "DSD-%NAME" "LAYOUT-CLASS" "LAYOUT-INVALID"
"DEFSTRUCT-DESCRIPTION" "%FUNCTION-NAME" "DSD-TYPE" "%INSTANCEP"
"UNDEFINE-STRUCTURE" "DEFSTRUCT-SLOT-DESCRIPTION" "%RAW-SET-SINGLE"
"BIGNUMP" "MAKE-STRUCTURE-LOAD-FORM" "BITP" "%FUNCTION-ARGLIST"
"DD-COPIER" "%FUNCTION-NEXT" "LAYOUT-HASH-LENGTH" "DD-PREDICATE"
"UNDEFINE-FUNCTION-NAME" "CLASS-PROPER-NAME" "%NOTE-TYPE-DEFINED" "LAYOUT-INFO"
"DD-TYPE" "%SET-INSTANCE-LAYOUT" "DD-DEFAULT-CONSTRUCTOR" "LAYOUT-OF"
"%RAW-REF-SINGLE" "%FUNCTION-SELF" "%REALPART" "STRUCTURE-CLASS-P" "DSD-INDEX"
"CLASS-STATE" "%INSTANCE-LAYOUT" "LAYOUT-HASH" "%FUNCTION-TYPE"
"INSTANCE" "DEFINE-FUNCTION-NAME" "LAYOUT-INHERITANCE-DEPTH"
"%RAW-SET-DOUBLE" "%%COMPILER-DEFSTRUCT" "%NUMERATOR" "CLASS-TYPEP"
"*TYPE-SYSTEM-INITIALIZED*" "STRUCTURE-CLASS-PRINT-FUNCTION" "DSD-READ-ONLY" "LAYOUT-INHERITS"
"WEAK-POINTER-P" "DD-LENGTH" "%CODE-ENTRY-POINTS"
"FIND-LAYOUT" "STRUCTURE-CLASS-MAKE-LOAD-FORM-FUN" "%DENOMINATOR"
"DSD-NAME" "BYTE-FUNCTION-OR-CLOSURE" "MAKE-STANDARD-CLASS"
"%TYPEP" "BYTE-FUNCTION-NAME" "CLASS-CELL-TYPEP" "BYTE-CLOSURE"
"DD-RAW-INDEX" "FIND-CLASS-CELL" "EXTRACT-FUNCTION-TYPE"
"DD-NAME" "FUNCALLABLE-STRUCTURE-CLASS" "%RANDOM-DOUBLE-FLOAT"
"CLASS-SUBCLASSES" "RANDOM-PCL-CLASS" "BASIC-STRUCTURE-CLASS-PRINT-FUNCTION"
"CLASS-LAYOUT" "%FUNCALLABLE-INSTANCE-INFO" "*EVAL-STACK*" "RANDOM-CHUNK"
"%RAW-REF-DOUBLE" "MAKE-FUNCALLABLE-STRUCTURE-CLASS" "LAYOUT-HASH-MAX"
"DD-RAW-LENGTH" "CLASS-CELL-NAME" "BUILT-IN-CLASS-DIRECT-SUPERCLASSES"
"NOTE-NAME-DEFINED" "INITIALIZE-BYTE-COMPILED-FUNCTION" "INITIALIZE-LAYOUT-HASH"
"%CODE-CODE-SIZE" "CLASS-PCL-CLASS" "FUNCALLABLE-STRUCTURE"
"DD-SLOTS" "FUNCALLABLE-INSTANCE-FUNCTION" "%FUNCALLABLE-INSTANCE-LAYOUT"
"%IMAGPART" "%RANDOM-SINGLE-FLOAT" "CLASS-CELL-CLASS" "BYTE-FUNCTION"
"DSD-ACCESSOR" "BASIC-STRUCTURE-CLASS" "FUNCALLABLE-STRUCTURE-CLASS-P"
"CLASS-INIT" "BYTE-CLOSURE-FUNCTION" "REGISTER-LAYOUT" "BYTE-CLOSURE-DATA"
"%CODE-DEBUG-INFO" "FUNCALLABLE-INSTANCE" "RANDOM-FIXNUM-MAX" "MAKE-RANDOM-PCL-CLASS"
"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"))
(dolist (dolist
(name (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