/[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.1 by gerd, Sun Mar 9 12:47:22 2003 UTC
# Line 100  Line 100 
100             "WITH-ACCESSORS"             "WITH-ACCESSORS"
101             "WITH-SLOTS"             "WITH-SLOTS"
102             )             )
103    
104      (:export "SEAL" "UNSEAL" "SEALED-ERROR")
105    
106      ;; Function names.
107      (:export "EFFECTIVE-METHOD" "FAST-METHOD" "SLOT-ACCESSOR"
108               "CLASS-PREDICATE")
109    
110    (:export "STANDARD-INSTANCE"    (:export "STANDARD-INSTANCE"
111             "FUNCALLABLE-STANDARD-INSTANCE"             "FUNCALLABLE-STANDARD-INSTANCE"
# Line 200  Line 206 
206             "WRITER-METHOD-CLASS"             "WRITER-METHOD-CLASS"
207            ))            ))
208    
 (defpackage "SLOT-ACCESSOR-NAME" (:use)(:nicknames "S-A-N"))  
   
 (in-package :pcl)  
 (defvar *slot-accessor-name-package*  
   (find-package :slot-accessor-name))  
209    
210  ;;; These symbol names came from "The Art of the Metaobject Protocol".  ;;; These symbol names came from "The Art of the Metaobject Protocol".
211  ;;;  ;;;

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

  ViewVC Help
Powered by ViewVC 1.1.5