diff --git a/code/exports.lisp b/code/exports.lisp index 05d7d20698880bdef24cc90658e57594f253baaa..b4356a378d5bbaa7ae223de30eb785d5ab97688e 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.87 1993/03/01 23:28:06 ram Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/exports.lisp,v 1.88 1993/05/02 14:52:10 ram Exp $") ;;; ;;; ********************************************************************** ;;; @@ -37,7 +37,10 @@ (if (find-package "PCL") (rename-package "PCL" "PCL" 'nil) (make-package "PCL" :nicknames 'nil :use nil)) -(shadow '("DOCUMENTATION" "DESTRUCTURING-BIND") "PCL") +(shadow '("DOCUMENTATION" "DESTRUCTURING-BIND" "FIND-CLASS" "CLASS-NAME" + "CLASS-OF" "CLASS" "BUILT-IN-CLASS" "STRUCTURE-CLASS" + "STRUCTURE-OBJECT") + "PCL") (if (find-package "FORMAT") (rename-package "FORMAT" "FORMAT" 'nil) (make-package "FORMAT" :nicknames 'nil :use nil)) @@ -452,12 +455,15 @@ (intern "FUNCALLABLE-INSTANCE-P" "KERNEL") (defpackage "PCL" (:import-from "KERNEL" "FUNCALLABLE-INSTANCE-P") - (:shadow "DESTRUCTURING-BIND" "DOCUMENTATION") - (:export "ADD-METHOD" "BUILT-IN-CLASS" "CALL-METHOD" - "CALL-NEXT-METHOD" "CHANGE-CLASS" "CLASS-NAME" "CLASS-OF" + (: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-CLASS" "FIND-METHOD" "FUNCTION-KEYWORDS" "GENERIC-FLET" + "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" @@ -466,7 +472,7 @@ "SLOT-BOUNDP" "SLOT-EXISTS-P" "SLOT-MAKUNBOUND" "SLOT-MISSING" "SLOT-UNBOUND" "SLOT-VALUE" "STANDARD" "STANDARD-CLASS" "STANDARD-GENERIC-FUNCTION" "STANDARD-METHOD" "STANDARD-OBJECT" - "STRUCTURE-CLASS" "UPDATE-INSTANCE-FOR-DIFFERENT-CLASS" + "UPDATE-INSTANCE-FOR-DIFFERENT-CLASS" "UPDATE-INSTANCE-FOR-REDEFINED-CLASS" "WITH-ACCESSORS" "WITH-ADDED-METHODS" "WITH-SLOTS")) (defpackage "FORMAT")