/[cmucl]/src/pcl/pkg.lisp
ViewVC logotype

Diff of /src/pcl/pkg.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.22 by pmai, Thu Nov 21 22:14:19 2002 UTC revision 1.22.2.3 by gerd, Thu Mar 20 23:41:00 2003 UTC
# Line 42  Line 42 
42             "VARIABLE-DECLARATION"             "VARIABLE-DECLARATION"
43             "MACROEXPAND-ALL"))             "MACROEXPAND-ALL"))
44    
45  (defpackage "PCL" (:use :common-lisp :walker)  (defpackage "PCL"
46    (:shadow "FIND-CLASS" "CLASS-NAME" "CLASS-OF"    (:use :common-lisp :walker)
            "CLASS" "BUILT-IN-CLASS" "STRUCTURE-CLASS"  
            "STANDARD-CLASS")  
47    (:import-from :kernel "FUNCALLABLE-INSTANCE-P" "SIMPLE-PROGRAM-ERROR")    (:import-from :kernel "FUNCALLABLE-INSTANCE-P" "SIMPLE-PROGRAM-ERROR")
48    (:shadow "DOCUMENTATION")    (:shadow "DOCUMENTATION")
49    
# Line 100  Line 98 
98             "WITH-ACCESSORS"             "WITH-ACCESSORS"
99             "WITH-SLOTS"             "WITH-SLOTS"
100             )             )
101    
102      (:export "SEAL" "UNSEAL" "SEALED-ERROR")
103    
104      ;; Function names.
105      (:export "EFFECTIVE-METHOD" "FAST-METHOD" "SLOT-ACCESSOR"
106               "CLASS-PREDICATE")
107    
108    (:export "STANDARD-INSTANCE"    (:export "STANDARD-INSTANCE"
109             "FUNCALLABLE-STANDARD-INSTANCE"             "FUNCALLABLE-STANDARD-INSTANCE"
# Line 200  Line 204 
204             "WRITER-METHOD-CLASS"             "WRITER-METHOD-CLASS"
205            ))            ))
206    
 (defpackage "SLOT-ACCESSOR-NAME" (:use)(:nicknames "S-A-N"))  
   
 (in-package :pcl)  
 (defvar *slot-accessor-name-package*  
   (find-package :slot-accessor-name))  
207    
208  ;;; These symbol names came from "The Art of the Metaobject Protocol".  ;;; These symbol names came from "The Art of the Metaobject Protocol".
209  ;;;  ;;;

Legend:
Removed from v.1.22  
changed lines
  Added in v.1.22.2.3

  ViewVC Help
Powered by ViewVC 1.1.5