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

Contents of /src/pcl/pkg.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.15 - (show 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 ;;;-*-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 #+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 ;;; 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
65 #+cmu
66 (:shadow "DOTIMES")
67
68 #+cmu
69 (:import-from :kernel "FUNCALLABLE-INSTANCE-P")
70
71 (:shadow "DOCUMENTATION")
72
73
74 ;;;
75 ;;; These come from the index pages of 88-002R.
76 ;;;
77 ;;;
78
79 (: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 "DESCRIBE-OBJECT"
92 "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
131 (: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 "FUNCALLABLE-STANDARD-CLASS"
153 "FUNCALLABLE-STANDARD-OBJECT")
154
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 ))
231
232 (defpackage "SLOT-ACCESSOR-NAME" (:use)(:nicknames "S-A-N"))
233
234 (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
241 (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 (:export
248 "FIND-CLASS" "CLASS-NAME" "BUILT-IN-CLASS" "CLASS-OF")
249
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