/[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.1.1.1 by ram, Sat Oct 19 16:45:37 1991 UTC revision 1.30 by rtoy, Fri Mar 19 15:19:03 2010 UTC
# Line 25  Line 25 
25  ;;; *************************************************************************  ;;; *************************************************************************
26  ;;;  ;;;
27    
28  (in-package 'pcl)  (ext:file-comment
29      "$Header$")
30    
31    (intl:textdomain "cmucl")
32    
33  ;;;  ;;;
34  ;;; Some CommonLisps have more symbols in the Lisp package than the ones that  ;;; CMUCL 18a: Jan-1998 -- Changing to DEFPACKAGE.
35  ;;; are explicitly specified in CLtL.  This causes trouble. Any Lisp that has  
36  ;;; extra symbols in the Lisp package should shadow those symbols in the PCL  (defpackage "WALKER" (:use :common-lisp :ext)
37  ;;; package.    (:export "DEFINE-WALKER-TEMPLATE"
38  ;;;             "WALK-FORM"
39  #+TI             "WALK-FORM-EXPAND-MACROS-P"
40  (shadow '(string-append once-only destructuring-bind             "NESTED-WALK-FORM"
41            memq assq delq neq true false             "VARIABLE-LEXICAL-P"
42            without-interrupts             "VARIABLE-SPECIAL-P"
43            defmethod)             "VARIABLE-GLOBALLY-SPECIAL-P"
44          *the-pcl-package*)             "*VARIABLE-DECLARATIONS*"
45               "VARIABLE-DECLARATION"
46  #+GCLisp             "MACROEXPAND-ALL"))
47  (shadow '(string-append memq assq delq neq make-instance)  
48          *the-pcl-package*)  (defpackage "PCL"
49      (:use :common-lisp :walker :ext)
50  #+Genera    (:import-from :kernel "FUNCALLABLE-INSTANCE-P" "SIMPLE-PROGRAM-ERROR")
51  (shadowing-import '(zl:arglist zwei:indentation) *the-pcl-package*)    (:shadow "DOCUMENTATION")
52      (:export "ADD-METHOD"
53  #+Lucid             "BUILT-IN-CLASS"
54  (import #-LCL3.0 'system:arglist             "CALL-METHOD"
55          #+LCL3.0 'lcl:arglist             "CALL-NEXT-METHOD"
56          *the-pcl-package*)             "CHANGE-CLASS"
57               "CLASS-NAME"
58               "CLASS-OF"
59               "COMPUTE-APPLICABLE-METHODS"
60  (shadow 'documentation)             "DEFCLASS"
61               "DEFGENERIC"
62               "DEFINE-METHOD-COMBINATION"
63  ;;;             "DEFMETHOD"
64  ;;; These come from the index pages of 88-002R.             "DESCRIBE-OBJECT"
65  ;;;             "ENSURE-GENERIC-FUNCTION"
66  ;;;             "FIND-CLASS"
67  (eval-when (compile load eval)             "FIND-METHOD"
68               "FUNCTION-KEYWORDS"
69               "INITIALIZE-INSTANCE"
70               "INVALID-METHOD-ERROR"
71               "MAKE-INSTANCE"
72               "MAKE-INSTANCES-OBSOLETE"
73               "METHOD-COMBINATION-ERROR"
74               "METHOD-QUALIFIERS"
75               "NEXT-METHOD-P"
76               "NO-APPLICABLE-METHOD"
77               "NO-NEXT-METHOD"
78               "PRINT-OBJECT"
79               "REINITIALIZE-INSTANCE"
80               "REMOVE-METHOD"
81               "SHARED-INITIALIZE"
82               "SLOT-BOUNDP"
83               "SLOT-EXISTS-P"
84               "SLOT-MAKUNBOUND"
85               "SLOT-MISSING"
86               "SLOT-UNBOUND"
87               "SLOT-VALUE"
88               "STANDARD"
89               "STANDARD-GENERIC-FUNCTION"
90               "STANDARD-METHOD"
91               "STANDARD-OBJECT"
92               "UPDATE-INSTANCE-FOR-DIFFERENT-CLASS"
93               "UPDATE-INSTANCE-FOR-REDEFINED-CLASS"
94               "WITH-ACCESSORS"
95               "WITH-SLOTS"
96               )
97    
98      (:export "SEAL" "UNSEAL" "SEALED-ERROR"
99               "*MAX-EMF-PRECOMPUTATION-METHODS*")
100    
101      ;; Function names.
102      (:export "EFFECTIVE-METHOD" "FAST-METHOD" "SLOT-ACCESSOR"
103               "CLASS-PREDICATE")
104    
105      (:export "FLUSH-EMF-CACHE" "NO-PRIMARY-METHOD"
106               "NO-PRIMARY-METHOD-ERROR")
107    
108  (defvar *exports* '(add-method    (:export "STANDARD-INSTANCE"
109                      built-in-class             "FUNCALLABLE-STANDARD-INSTANCE"
110                      call-method             "GENERIC-FUNCTION"
111                      call-next-method             "STANDARD-GENERIC-FUNCTION"
112                      change-class             "METHOD"
113                      class-name             "STANDARD-METHOD"
114                      class-of             "STANDARD-ACCESSOR-METHOD"
115                      compute-applicable-methods             "STANDARD-READER-METHOD"
116                      defclass             "STANDARD-WRITER-METHOD"
117                      defgeneric             "METHOD-COMBINATION"
118                      define-method-combination             "SLOT-DEFINITION"
119                      defmethod             "DIRECT-SLOT-DEFINITION"
120                      ensure-generic-function             "EFFECTIVE-SLOT-DEFINITION"
121                      find-class             "STANDARD-SLOT-DEFINITION"
122                      find-method             "STANDARD-DIRECT-SLOT-DEFINITION"
123                      function-keywords             "STANDARD-EFFECTIVE-SLOT-DEFINITION"
124                      generic-flet             "SPECIALIZER"
125                      generic-labels             "EQL-SPECIALIZER"
126                      initialize-instance             "FORWARD-REFERENCED-CLASS"
127                      invalid-method-error             "FUNCALLABLE-STANDARD-CLASS"
128                      make-instance             "FUNCALLABLE-STANDARD-OBJECT"
129                      make-instances-obsolete             "METAOBJECT")
130                      method-combination-error  
131                      method-qualifiers    ;;*chapter-6-exports*
132                      next-method-p    (:export "ADD-DEPENDENT"
133                      no-applicable-method             "ADD-DIRECT-METHOD"
134                      no-next-method             "ADD-DIRECT-SUBCLASS"
135                      print-object             "ADD-METHOD"
136                      reinitialize-instance             "ALLOCATE-INSTANCE"
137                      remove-method             "CLASS-DEFAULT-INITARGS"
138                      shared-initialize             "CLASS-DIRECT-DEFAULT-INITARGS"
139                      slot-boundp             "CLASS-DIRECT-SLOTS"
140                      slot-exists-p             "CLASS-DIRECT-SUBCLASSES"
141                      slot-makunbound             "CLASS-DIRECT-SUPERCLASSES"
142                      slot-missing             "CLASS-FINALIZED-P"
143                      slot-unbound             "CLASS-PRECEDENCE-LIST"
144                      slot-value             "CLASS-PROTOTYPE"
145                      standard             "CLASS-SLOTS"
146                      standard-class             "COMPUTE-APPLICABLE-METHODS"
147                      standard-generic-function             "COMPUTE-APPLICABLE-METHODS-USING-CLASSES"
148                      standard-method             "COMPUTE-CLASS-PRECEDENCE-LIST"
149                      standard-object             "COMPUTE-DISCRIMINATING-FUNCTION"
150                      structure-class             "COMPUTE-DEFAULT-INITARGS"
151                      symbol-macrolet             "COMPUTE-EFFECTIVE-METHOD"
152                      update-instance-for-different-class             "COMPUTE-EFFECTIVE-SLOT-DEFINITION"
153                      update-instance-for-redefined-class             "COMPUTE-SLOTS"
154                      with-accessors             "DIRECT-SLOT-DEFINITION-CLASS"
155                      with-added-methods             "EFFECTIVE-SLOT-DEFINITION-CLASS"
156                      with-slots             "ENSURE-CLASS"
157                      ))             "ENSURE-CLASS-USING-CLASS"
158               "ENSURE-GENERIC-FUNCTION"
159  );eval-when             "ENSURE-GENERIC-FUNCTION-USING-CLASS"
160               "EQL-SPECIALIZER-OBJECT"
161  #-(or KCL IBCL)             "EXTRACT-LAMBDA-LIST"
162  (export *exports* *the-pcl-package*)             "EXTRACT-SPECIALIZER-NAMES"
163               "FINALIZE-INHERITANCE"
164  #+(or KCL IBCL)             "FIND-METHOD-COMBINATION"
165  (mapc 'export (list *exports*) (list *the-pcl-package*))             "FUNCALLABLE-STANDARD-INSTANCE-ACCESS"
166               "GENERIC-FUNCTION-ARGUMENT-PRECEDENCE-ORDER"
167               "GENERIC-FUNCTION-DECLARATIONS"
168               "GENERIC-FUNCTION-LAMBDA-LIST"
169  ;(defvar *chapter-3-exports* '(             "GENERIC-FUNCTION-METHOD-CLASS"
170  ;                         get-setf-function             "GENERIC-FUNCTION-METHOD-COMBINATION"
171  ;                         get-setf-function-name             "GENERIC-FUNCTION-METHODS"
172  ;             "GENERIC-FUNCTION-NAME"
173  ;                         class-prototype             "INTERN-EQL-SPECIALIZER"
174  ;                         class             "MAKE-INSTANCE"
175  ;                         object             "MAKE-METHOD-LAMBDA"
176  ;             "MAP-DEPENDENTS"
177  ;;                        essential-class             "METHOD-FUNCTION"
178  ;             "METHOD-GENERIC-FUNCTION"
179  ;                         class-name             "METHOD-LAMBDA-LIST"
180  ;                         class-precedence-list             "METHOD-SPECIALIZERS"
181  ;                         class-local-supers             "METHOD-QUALIFIERS"
182  ;                         class-local-slots             "ACCESSOR-METHOD-SLOT-DEFINITION"
183  ;                         class-direct-subclasses             "READER-METHOD-CLASS"
184  ;                         class-direct-methods             "REMOVE-DEPENDENT"
185  ;                         class-slots             "REMOVE-DIRECT-METHOD"
186  ;             "REMOVE-DIRECT-SUBCLASS"
187  ;             "REMOVE-METHOD"
188  ;                         method-arglist             "SET-FUNCALLABLE-INSTANCE-FUNCTION"
189  ;                         method-argument-specifiers             "SLOT-BOUNDP-USING-CLASS"
190  ;                         method-function             "SLOT-DEFINITION-ALLOCATION"
191  ;             "SLOT-DEFINITION-INITARGS"
192  ;                         method-equal             "SLOT-DEFINITION-INITFORM"
193  ;             "SLOT-DEFINITION-INITFUNCTION"
194  ;                         slotd-name             "SLOT-DEFINITION-LOCATION"
195  ;                         slot-missing             "SLOT-DEFINITION-NAME"
196  ;             "SLOT-DEFINITION-READERS"
197  ;;                        define-meta-class             "SLOT-DEFINITION-WRITERS"
198  ;;                        %allocate-instance             "SLOT-DEFINITION-TYPE"
199  ;;                        %instance-ref             "SLOT-MAKUNBOUND-USING-CLASS"
200  ;;                        %instancep             "SLOT-VALUE-USING-CLASS"
201  ;;                        %instance-meta-class             "SPECIALIZER-DIRECT-GENERIC-FUNCTIONS"
202  ;             "SPECIALIZER-DIRECT-METHODS"
203  ;                         allocate-instance             "STANDARD-INSTANCE-ACCESS"
204  ;                         optimize-slot-value             "UPDATE-DEPENDENT"
205  ;                         optimize-setf-of-slot-value             "VALIDATE-SUPERCLASS"
206  ;                         add-named-class             "WRITER-METHOD-CLASS"))
 ;                         class-for-redefinition  
 ;                         add-class  
 ;                         supers-changed  
 ;                         slots-changed  
 ;                         check-super-metaclass-compatibility  
 ;                         make-slotd  
 ;                         compute-class-precedence-list  
 ;                         walk-method-body  
 ;                         walk-method-body-form  
 ;                         add-named-method  
 ;                         remove-named-method  
 ;  
 ;  
 ;                         ))  
207    
208    ;;;
209    ;;; These symbol names came from "The Art of the Metaobject Protocol".
210    ;;;
211    (defpackage "CLOS-MOP"
212      (:use :pcl :common-lisp)
213      (:nicknames "MOP")
214      (:export "ACCESSOR-METHOD-SLOT-DEFINITION"
215               "ADD-DEPENDENT"
216               "ADD-DIRECT-METHOD"
217               "ADD-DIRECT-SUBCLASS"
218               "ADD-METHOD"
219               "ALLOCATE-INSTANCE"
220               "CLASS-DEFAULT-INITARGS"
221               "CLASS-DIRECT-DEFAULT-INITARGS"
222               "CLASS-DIRECT-SLOTS"
223               "CLASS-DIRECT-SUBCLASSES"
224               "CLASS-DIRECT-SUPERCLASSES"
225               "CLASS-FINALIZED-P"
226               "CLASS-NAME"
227               "CLASS-PRECEDENCE-LIST"
228               "CLASS-PROTOTYPE"
229               "CLASS-SLOTS"
230               "COMPUTE-APPLICABLE-METHODS"
231               "COMPUTE-APPLICABLE-METHODS-USING-CLASSES"
232               "COMPUTE-CLASS-PRECEDENCE-LIST"
233               "COMPUTE-DEFAULT-INITARGS"
234               "COMPUTE-DISCRIMINATING-FUNCTION"
235               "COMPUTE-EFFECTIVE-METHOD"
236               "COMPUTE-EFFECTIVE-SLOT-DEFINITION"
237               "COMPUTE-SLOTS"
238               "DIRECT-SLOT-DEFINITION"
239               "DIRECT-SLOT-DEFINITION-CLASS"
240               "EFFECTIVE-SLOT-DEFINITION"
241               "EFFECTIVE-SLOT-DEFINITION-CLASS"
242               "ENSURE-CLASS"
243               "ENSURE-CLASS-USING-CLASS"
244               "ENSURE-GENERIC-FUNCTION"
245               "ENSURE-GENERIC-FUNCTION-USING-CLASS"
246               "EQL-SPECIALIZER"
247               "EQL-SPECIALIZER-OBJECT"
248               "EXTRACT-LAMBDA-LIST"
249               "EXTRACT-SPECIALIZER-NAMES"
250               "FINALIZE-INHERITANCE"
251               "FIND-METHOD-COMBINATION"
252               "FORWARD-REFERENCED-CLASS"
253               "FUNCALLABLE-STANDARD-CLASS"
254               "FUNCALLABLE-STANDARD-INSTANCE-ACCESS"
255               "FUNCALLABLE-STANDARD-OBJECT"
256               "GENERIC-FUNCTION-ARGUMENT-PRECEDENCE-ORDER"
257               "GENERIC-FUNCTION-DECLARATIONS"
258               "GENERIC-FUNCTION-LAMBDA-LIST"
259               "GENERIC-FUNCTION-METHOD-CLASS"
260               "GENERIC-FUNCTION-METHOD-COMBINATION"
261               "GENERIC-FUNCTION-METHODS"
262               "GENERIC-FUNCTION-NAME"
263               "INTERN-EQL-SPECIALIZER"
264               "MAKE-INSTANCE"
265               "MAKE-METHOD-LAMBDA"
266               "MAP-DEPENDENTS"
267               "METAOBJECT"
268               "METHOD-FUNCTION"
269               "METHOD-GENERIC-FUNCTION"
270               "METHOD-LAMBDA-LIST"
271               "METHOD-QUALIFIERS"
272               "METHOD-SPECIALIZERS"
273               "READER-METHOD-CLASS"
274               "REMOVE-DEPENDENT"
275               "REMOVE-DIRECT-METHOD"
276               "REMOVE-DIRECT-SUBCLASS"
277               "REMOVE-METHOD"
278               "SET-FUNCALLABLE-INSTANCE-FUNCTION"
279               "SLOT-BOUNDP-USING-CLASS"
280               "SLOT-DEFINITION"
281               "SLOT-DEFINITION-ALLOCATION"
282               "SLOT-DEFINITION-INITARGS"
283               "SLOT-DEFINITION-INITFORM"
284               "SLOT-DEFINITION-INITFUNCTION"
285               "SLOT-DEFINITION-LOCATION"
286               "SLOT-DEFINITION-NAME"
287               "SLOT-DEFINITION-READERS"
288               "SLOT-DEFINITION-TYPE"
289               "SLOT-DEFINITION-WRITERS"
290               "SLOT-MAKUNBOUND-USING-CLASS"
291               "SLOT-VALUE-USING-CLASS"
292               "SPECIALIZER"
293               "SPECIALIZER-DIRECT-GENERIC-FUNCTIONS"
294               "SPECIALIZER-DIRECT-METHODS"
295               "STANDARD-ACCESSOR-METHOD"
296               "STANDARD-DIRECT-SLOT-DEFINITION"
297               "STANDARD-EFFECTIVE-SLOT-DEFINITION"
298               "STANDARD-GENERIC-FUNCTION"
299               "STANDARD-INSTANCE-ACCESS"
300               "STANDARD-METHOD"
301               "STANDARD-READER-METHOD"
302               "STANDARD-SLOT-DEFINITION"
303               "STANDARD-WRITER-METHOD"
304               "UPDATE-DEPENDENT"
305               "VALIDATE-SUPERCLASS"
306               "WRITER-METHOD-CLASS"))

Legend:
Removed from v.1.1.1.1  
changed lines
  Added in v.1.30

  ViewVC Help
Powered by ViewVC 1.1.5