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

Contents of /src/pcl/pkg.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.15 - (hide annotations)
Sun Dec 20 04:30:22 1998 UTC (15 years, 4 months ago) by dtc
Branch: MAIN
Changes since 1.14: +4 -1 lines
Add CMUCL style file-comments; from Peter Van Eynde.
1 wlott 1.1 ;;;-*-Mode:LISP; Package:(PCL (LISP WALKER)); Base:10; Syntax:Common-lisp -*-
2     ;;;
3     ;;; *************************************************************************
4     ;;; Copyright (c) 1985, 1986, 1987, 1988, 1989, 1990 Xerox Corporation.
5     ;;; All rights reserved.
6     ;;;
7     ;;; Use and copying of this software and preparation of derivative works
8     ;;; based upon this software are permitted. Any distribution of this
9     ;;; software or derivative works must comply with all applicable United
10     ;;; States export control laws.
11     ;;;
12     ;;; This software is made available AS IS, and Xerox Corporation makes no
13     ;;; warranty about the software, its performance or its conformity to any
14     ;;; specification.
15     ;;;
16     ;;; Any person obtaining a copy of this software is requested to send their
17     ;;; name and post office or electronic mail address to:
18     ;;; CommonLoops Coordinator
19     ;;; Xerox PARC
20     ;;; 3333 Coyote Hill Rd.
21     ;;; Palo Alto, CA 94304
22     ;;; (or send Arpanet mail to CommonLoops-Coordinator.pa@Xerox.arpa)
23     ;;;
24     ;;; Suggestions, comments and requests for improvements are also welcome.
25     ;;; *************************************************************************
26     ;;;
27 dtc 1.15 #+cmu
28     (ext:file-comment
29     "$Header: /tiger/var/lib/cvsroots/cmucl/src/pcl/pkg.lisp,v 1.15 1998/12/20 04:30:22 dtc Exp $")
30     ;;;
31 pw 1.11 ;;; CMUCL 18a: Jan-1998 -- Changing to DEFPACKAGE.
32     ;;; Note that at this time CMUCL is not in compliance with ANSI
33     ;;; specified use of feature names :cltl2 :x3j13 :draft-ansi-cl or :ansi-cl
34     ;;; since all of them are in *features*. So I'm not going to try and be
35     ;;; clever with hacking around all the various ancient lisp quirks.
36     ;;; This file is now CMUCL specific only.
37    
38     (defpackage "WALKER" (:use :common-lisp)
39     (:export "DEFINE-WALKER-TEMPLATE"
40     "WALK-FORM"
41     "WALK-FORM-EXPAND-MACROS-P"
42     "NESTED-WALK-FORM"
43     "VARIABLE-LEXICAL-P"
44     "VARIABLE-SPECIAL-P"
45     "VARIABLE-GLOBALLY-SPECIAL-P"
46     "*VARIABLE-DECLARATIONS*"
47     "VARIABLE-DECLARATION"
48     "MACROEXPAND-ALL"))
49    
50     (defpackage "ITERATE" (:use :common-lisp :walker)
51     (:export "ITERATE" "ITERATE*" "GATHERING" "GATHER" "WITH-GATHERING"
52     "INTERVAL" "ELEMENTS" "LIST-ELEMENTS" "LIST-TAILS"
53     "PLIST-ELEMENTS" "EACHTIME" "WHILE" "UNTIL"
54     "COLLECTING" "JOINING" "MAXIMIZING" "MINIMIZING" "SUMMING"
55     "*ITERATE-WARNINGS*"))
56    
57     (defpackage "PCL" (:use :common-lisp :walker :iterate)
58     #+CMU
59     (:shadow "DESTRUCTURING-BIND")
60     #+cmu17
61     (:shadow "FIND-CLASS" "CLASS-NAME" "CLASS-OF"
62     "CLASS" "BUILT-IN-CLASS" "STRUCTURE-CLASS"
63     "STANDARD-CLASS")
64 wlott 1.1
65 pw 1.11 #+cmu
66     (:shadow "DOTIMES")
67 ram 1.7
68 pw 1.11 #+cmu
69     (:import-from :kernel "FUNCALLABLE-INSTANCE-P")
70 ram 1.7
71 pw 1.11 (:shadow "DOCUMENTATION")
72 wlott 1.1
73    
74     ;;;
75     ;;; These come from the index pages of 88-002R.
76     ;;;
77     ;;;
78    
79 pw 1.11 (:export "ADD-METHOD"
80     "BUILT-IN-CLASS"
81     "CALL-METHOD"
82     "CALL-NEXT-METHOD"
83     "CHANGE-CLASS"
84     "CLASS-NAME"
85     "CLASS-OF"
86     "COMPUTE-APPLICABLE-METHODS"
87     "DEFCLASS"
88     "DEFGENERIC"
89     "DEFINE-METHOD-COMBINATION"
90     "DEFMETHOD"
91 dtc 1.13 "DESCRIBE-OBJECT"
92 pw 1.11 "ENSURE-GENERIC-FUNCTION"
93     "FIND-CLASS"
94     "FIND-METHOD"
95     "FUNCTION-KEYWORDS"
96     "GENERIC-FLET"
97     "GENERIC-LABELS"
98     "INITIALIZE-INSTANCE"
99     "INVALID-METHOD-ERROR"
100     "MAKE-INSTANCE"
101     "MAKE-INSTANCES-OBSOLETE"
102     "METHOD-COMBINATION-ERROR"
103     "METHOD-QUALIFIERS"
104     "NEXT-METHOD-P"
105     "NO-APPLICABLE-METHOD"
106     "NO-NEXT-METHOD"
107     "PRINT-OBJECT"
108     "REINITIALIZE-INSTANCE"
109     "REMOVE-METHOD"
110     "SHARED-INITIALIZE"
111     "SLOT-BOUNDP"
112     "SLOT-EXISTS-P"
113     "SLOT-MAKUNBOUND"
114     "SLOT-MISSING"
115     "SLOT-UNBOUND"
116     "SLOT-VALUE"
117     "STANDARD"
118     #-CMU17 "STANDARD-CLASS"
119     "STANDARD-GENERIC-FUNCTION"
120     "STANDARD-METHOD"
121     "STANDARD-OBJECT"
122     #-CMU17 "STRUCTURE-CLASS"
123     #-CMU17 "SYMBOL-MACROLET"
124     "UPDATE-INSTANCE-FOR-DIFFERENT-CLASS"
125     "UPDATE-INSTANCE-FOR-REDEFINED-CLASS"
126     "WITH-ACCESSORS"
127     "WITH-ADDED-METHODS"
128     "WITH-SLOTS"
129     )
130 ram 1.8
131 pw 1.11 (:export "STANDARD-INSTANCE"
132     "FUNCALLABLE-STANDARD-INSTANCE"
133     "GENERIC-FUNCTION"
134     "STANDARD-GENERIC-FUNCTION"
135     "METHOD"
136     "STANDARD-METHOD"
137     "STANDARD-ACCESSOR-METHOD"
138     "STANDARD-READER-METHOD"
139     "STANDARD-WRITER-METHOD"
140     "METHOD-COMBINATION"
141     "SLOT-DEFINITION"
142     "DIRECT-SLOT-DEFINITION"
143     "EFFECTIVE-SLOT-DEFINITION"
144     "STANDARD-SLOT-DEFINITION"
145     "STANDARD-DIRECT-SLOT-DEFINITION"
146     "STANDARD-EFFECTIVE-SLOT-DEFINITION"
147     "SPECIALIZER"
148     "EQL-SPECIALIZER"
149     #-CMU17 "BUILT-IN-CLASS"
150     "FORWARD-REFERENCED-CLASS"
151     #-CMU17 "STANDARD-CLASS"
152 dtc 1.14 "FUNCALLABLE-STANDARD-CLASS"
153     "FUNCALLABLE-STANDARD-OBJECT")
154 pw 1.11
155     ;;*chapter-6-exports*
156     (:export "ADD-DEPENDENT"
157     "ADD-DIRECT-METHOD"
158     "ADD-DIRECT-SUBCLASS"
159     "ADD-METHOD"
160     "ALLOCATE-INSTANCE"
161     "CLASS-DEFAULT-INITARGS"
162     "CLASS-DIRECT-DEFAULT-INITARGS"
163     "CLASS-DIRECT-SLOTS"
164     "CLASS-DIRECT-SUBCLASSES"
165     "CLASS-DIRECT-SUPERCLASSES"
166     "CLASS-FINALIZED-P"
167     "CLASS-PRECEDENCE-LIST"
168     "CLASS-PROTOTYPE"
169     "CLASS-SLOTS"
170     "COMPUTE-APPLICABLE-METHODS"
171     "COMPUTE-APPLICABLE-METHODS-USING-CLASSES"
172     "COMPUTE-CLASS-PRECEDENCE-LIST"
173     "COMPUTE-DISCRIMINATING-FUNCTION"
174     "COMPUTE-EFFECTIVE-METHOD"
175     "COMPUTE-EFFECTIVE-SLOT-DEFINITION"
176     "COMPUTE-SLOTS"
177     "DIRECT-SLOT-DEFINITION-CLASS"
178     "EFFECTIVE-SLOT-DEFINITION-CLASS"
179     "ENSURE-CLASS"
180     "ENSURE-CLASS-USING-CLASS"
181     "ENSURE-GENERIC-FUNCTION"
182     "ENSURE-GENERIC-FUNCTION-USING-CLASS"
183     "EQL-SPECIALIZER-INSTANCE"
184     "EXTRACT-LAMBDA-LIST"
185     "EXTRACT-SPECIALIZER-NAMES"
186     "FINALIZE-INHERITANCE"
187     "FIND-METHOD-COMBINATION"
188     "FUNCALLABLE-STANDARD-INSTANCE-ACCESS"
189     "GENERIC-FUNCTION-ARGUMENT-PRECEDENCE-ORDER"
190     "GENERIC-FUNCTION-DECLARATIONS"
191     "GENERIC-FUNCTION-LAMBDA-LIST"
192     "GENERIC-FUNCTION-METHOD-CLASS"
193     "GENERIC-FUNCTION-METHOD-COMBINATION"
194     "GENERIC-FUNCTION-METHODS"
195     "GENERIC-FUNCTION-NAME"
196     "INTERN-EQL-SPECIALIZER"
197     "MAKE-INSTANCE"
198     "MAKE-METHOD-LAMBDA"
199     "MAP-DEPENDENTS"
200     "METHOD-FUNCTION"
201     "METHOD-GENERIC-FUNCTION"
202     "METHOD-LAMBDA-LIST"
203     "METHOD-SPECIALIZERS"
204     "METHOD-QUALIFIERS"
205     "ACCESSOR-METHOD-SLOT-DEFINITION"
206     "READER-METHOD-CLASS"
207     "REMOVE-DEPENDENT"
208     "REMOVE-DIRECT-METHOD"
209     "REMOVE-DIRECT-SUBCLASS"
210     "REMOVE-METHOD"
211     "SET-FUNCALLABLE-INSTANCE-FUNCTION"
212     "SLOT-BOUNDP-USING-CLASS"
213     "SLOT-DEFINITION-ALLOCATION"
214     "SLOT-DEFINITION-INITARGS"
215     "SLOT-DEFINITION-INITFORM"
216     "SLOT-DEFINITION-INITFUNCTION"
217     "SLOT-DEFINITION-LOCATION"
218     "SLOT-DEFINITION-NAME"
219     "SLOT-DEFINITION-READERS"
220     "SLOT-DEFINITION-WRITERS"
221     "SLOT-DEFINITION-TYPE"
222     "SLOT-MAKUNBOUND-USING-CLASS"
223     "SLOT-VALUE-USING-CLASS"
224     "SPECIALIZER-DIRECT-GENERIC-FUNCTION"
225     "SPECIALIZER-DIRECT-METHODS"
226     "STANDARD-INSTANCE-ACCESS"
227     "UPDATE-DEPENDENT"
228     "VALIDATE-SUPERCLASS"
229     "WRITER-METHOD-CLASS"
230 ram 1.8 ))
231 ram 1.3
232 pw 1.11 (defpackage "SLOT-ACCESSOR-NAME" (:use)(:nicknames "S-A-N"))
233 ram 1.8
234 pw 1.11 (in-package :pcl)
235     (defvar *slot-accessor-name-package*
236     (find-package :slot-accessor-name))
237    
238     ;;; These symbol names came from "The Art of the Metaobject Protocol".
239     ;;;
240 ram 1.8
241 pw 1.11 (defpackage "CLOS-MOP"
242     (:use :pcl :common-lisp)
243     (:nicknames "MOP")
244    
245     (:shadowing-import-from :pcl
246     "FIND-CLASS" "CLASS-NAME" "BUILT-IN-CLASS" "CLASS-OF")
247 pw 1.12 (:export
248     "FIND-CLASS" "CLASS-NAME" "BUILT-IN-CLASS" "CLASS-OF")
249 pw 1.11
250     (:export ;; Names taken from "The Art of the Metaobject Protocol"
251     "ADD-DEPENDENT"
252     "ADD-DIRECT-METHOD"
253     "ADD-DIRECT-SUBCLASS"
254     "ADD-METHOD"
255     "ALLOCATE-INSTANCE"
256     "CLASS-DEFAULT-INITARGS"
257     "CLASS-DIRECT-DEFAULT-INITARGS"
258     "CLASS-DIRECT-SLOTS"
259     "CLASS-DIRECT-SUBCLASSES"
260     "CLASS-DIRECT-SUPERCLASSES"
261     "CLASS-FINALIZED-P"
262     "CLASS-NAME"
263     "CLASS-PRECEDENCE-LIST"
264     "CLASS-PROTOTYPE"
265     "CLASS-SLOTS"
266     "COMPUTE-APPLICABLE-METHODS"
267     "COMPUTE-APPLICABLE-METHODS-USING-CLASSES"
268     "COMPUTE-CLASS-PRECEDENCE-LIST"
269     "COMPUTE-DEFAULT-INITARGS"
270     "COMPUTE-DISCRIMINATING-FUNCTION"
271     "COMPUTE-EFFECTIVE-METHOD"
272     "COMPUTE-EFFECTIVE-SLOT-DEFINITION"
273     "COMPUTE-SLOTS"
274     "DIRECT-SLOT-DEFINITION-CLASS"
275     "EFFECTIVE-SLOT-DEFINITION-CLASS"
276     "ENSURE-CLASS"
277     "ENSURE-CLASS-USING-CLASS"
278     "ENSURE-GENERIC-FUNCTION"
279     "ENSURE-GENERIC-FUNCTION-USING-CLASS"
280     "EQL-SPECIALIZER-OBJECT"
281     "EXTRACT-LAMBDA-LIST"
282     "EXTRACT-SPECIALIZER-NAMES"
283     "FINALIZE-INHERITANCE"
284     "FIND-METHOD-COMBINATION"
285     "FUNCALLABLE-STANDARD-INSTANCE-ACCESS"
286     "GENERIC-FUNCTION-ARGUMENT-PRECEDENCE-ORDER"
287     "GENERIC-FUNCTION-DECLARATIONS"
288     "GENERIC-FUNCTION-LAMBDA-LIST"
289     "GENERIC-FUNCTION-METHOD-CLASS"
290     "GENERIC-FUNCTION-METHOD-COMBINATION"
291     "GENERIC-FUNCTION-METHODS"
292     "GENERIC-FUNCTION-NAME"
293     "INTERN-EQL-SPECIALIZER"
294     "MAKE-INSTANCE"
295     "MAKE-METHOD-LAMBDA"
296     "MAP-DEPENDENTS"
297     "METHOD-FUNCTION"
298     "METHOD-GENERIC-FUNCTION"
299     "METHOD-LAMBDA-LIST"
300     "METHOD-SPECIALIZERS"
301     "METHOD-QUALIFIERS"
302     "ACCESSOR-METHOD-SLOT-DEFINITION"
303    
304     "SLOT-DEFINITION-ALLOCATION"
305     "SLOT-DEFINITION-INITARGS"
306     "SLOT-DEFINITION-INITFORM"
307     "SLOT-DEFINITION-INITFUNCTION"
308     "SLOT-DEFINITION-NAME"
309     "SLOT-DEFINITION-TYPE"
310     "SLOT-DEFINITION-READERS"
311     "SLOT-DEFINITION-WRITERS"
312     "SLOT-DEFINITION-LOCATION"
313    
314     "READER-METHOD-CLASS"
315     "REMOVE-DEPENDENT"
316     "REMOVE-DIRECT-METHOD"
317     "REMOVE-DIRECT-SUBCLASS"
318     "REMOVE-METHOD"
319     "SET-FUNCALLABLE-INSTANCE-FUNCTION"
320     "SLOT-BOUNDP-USING-CLASS"
321     "SLOT-MAKUNBOUND-USING-CLASS"
322     "SLOT-VALUE-USING-CLASS"
323     "SPECIALIZER-DIRECT-GENERIC-FUNCTIONS"
324     "SPECIALIZER-DIRECT-METHODS"
325     "STANDARD-INSTANCE-ACCESS"
326     "UPDATE-DEPENDENT"
327     "VALIDATE-SUPERCLASS"
328     "WRITER-METHOD-CLASS"
329     ))

  ViewVC Help
Powered by ViewVC 1.1.5