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

Contents of /src/pcl/pkg.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.10.2.3 - (show annotations)
Sat Mar 23 18:51:20 2002 UTC (12 years, 1 month ago) by pw
Branch: RELENG_18
CVS Tags: RELEASE_18d
Changes since 1.10.2.2: +1 -6 lines
Mega commit to bring RELENG_18 branch in sync with HEAD in preparation
for release tagging 18d.
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
28 (ext:file-comment
29 "$Header: /tiger/var/lib/cvsroots/cmucl/src/pcl/pkg.lisp,v 1.10.2.3 2002/03/23 18:51:20 pw Exp $")
30 ;;;
31 ;;; CMUCL 18a: Jan-1998 -- Changing to DEFPACKAGE.
32
33 (defpackage "WALKER" (:use :common-lisp)
34 (:export "DEFINE-WALKER-TEMPLATE"
35 "WALK-FORM"
36 "WALK-FORM-EXPAND-MACROS-P"
37 "NESTED-WALK-FORM"
38 "VARIABLE-LEXICAL-P"
39 "VARIABLE-SPECIAL-P"
40 "VARIABLE-GLOBALLY-SPECIAL-P"
41 "*VARIABLE-DECLARATIONS*"
42 "VARIABLE-DECLARATION"
43 "MACROEXPAND-ALL"))
44
45 (defpackage "ITERATE" (:use :common-lisp :walker)
46 (:export "ITERATE" "ITERATE*" "GATHERING" "GATHER" "WITH-GATHERING"
47 "INTERVAL" "ELEMENTS" "LIST-ELEMENTS" "LIST-TAILS"
48 "PLIST-ELEMENTS" "EACHTIME" "WHILE" "UNTIL"
49 "COLLECTING" "JOINING" "MAXIMIZING" "MINIMIZING" "SUMMING"
50 "*ITERATE-WARNINGS*"))
51
52 (defpackage "PCL" (:use :common-lisp :walker :iterate)
53 (:shadow "DESTRUCTURING-BIND")
54 (:shadow "FIND-CLASS" "CLASS-NAME" "CLASS-OF"
55 "CLASS" "BUILT-IN-CLASS" "STRUCTURE-CLASS"
56 "STANDARD-CLASS")
57 (:shadow "DOTIMES")
58 (:import-from :kernel "FUNCALLABLE-INSTANCE-P")
59 (:shadow "DOCUMENTATION")
60
61
62 ;;;
63 ;;; These come from the index pages of 88-002R.
64 ;;;
65 ;;;
66
67 (:export "ADD-METHOD"
68 "BUILT-IN-CLASS"
69 "CALL-METHOD"
70 "CALL-NEXT-METHOD"
71 "CHANGE-CLASS"
72 "CLASS-NAME"
73 "CLASS-OF"
74 "COMPUTE-APPLICABLE-METHODS"
75 "DEFCLASS"
76 "DEFGENERIC"
77 "DEFINE-METHOD-COMBINATION"
78 "DEFMETHOD"
79 "DESCRIBE-OBJECT"
80 "ENSURE-GENERIC-FUNCTION"
81 "FIND-CLASS"
82 "FIND-METHOD"
83 "FUNCTION-KEYWORDS"
84 "GENERIC-FLET"
85 "GENERIC-LABELS"
86 "INITIALIZE-INSTANCE"
87 "INVALID-METHOD-ERROR"
88 "MAKE-INSTANCE"
89 "MAKE-INSTANCES-OBSOLETE"
90 "METHOD-COMBINATION-ERROR"
91 "METHOD-QUALIFIERS"
92 "NEXT-METHOD-P"
93 "NO-APPLICABLE-METHOD"
94 "NO-NEXT-METHOD"
95 "PRINT-OBJECT"
96 "REINITIALIZE-INSTANCE"
97 "REMOVE-METHOD"
98 "SHARED-INITIALIZE"
99 "SLOT-BOUNDP"
100 "SLOT-EXISTS-P"
101 "SLOT-MAKUNBOUND"
102 "SLOT-MISSING"
103 "SLOT-UNBOUND"
104 "SLOT-VALUE"
105 "STANDARD"
106 "STANDARD-GENERIC-FUNCTION"
107 "STANDARD-METHOD"
108 "STANDARD-OBJECT"
109 "UPDATE-INSTANCE-FOR-DIFFERENT-CLASS"
110 "UPDATE-INSTANCE-FOR-REDEFINED-CLASS"
111 "WITH-ACCESSORS"
112 "WITH-ADDED-METHODS"
113 "WITH-SLOTS"
114 )
115
116 (:export "STANDARD-INSTANCE"
117 "FUNCALLABLE-STANDARD-INSTANCE"
118 "GENERIC-FUNCTION"
119 "STANDARD-GENERIC-FUNCTION"
120 "METHOD"
121 "STANDARD-METHOD"
122 "STANDARD-ACCESSOR-METHOD"
123 "STANDARD-READER-METHOD"
124 "STANDARD-WRITER-METHOD"
125 "METHOD-COMBINATION"
126 "SLOT-DEFINITION"
127 "DIRECT-SLOT-DEFINITION"
128 "EFFECTIVE-SLOT-DEFINITION"
129 "STANDARD-SLOT-DEFINITION"
130 "STANDARD-DIRECT-SLOT-DEFINITION"
131 "STANDARD-EFFECTIVE-SLOT-DEFINITION"
132 "SPECIALIZER"
133 "EQL-SPECIALIZER"
134 "FORWARD-REFERENCED-CLASS"
135 "FUNCALLABLE-STANDARD-CLASS"
136 "FUNCALLABLE-STANDARD-OBJECT")
137
138 ;;*chapter-6-exports*
139 (:export "ADD-DEPENDENT"
140 "ADD-DIRECT-METHOD"
141 "ADD-DIRECT-SUBCLASS"
142 "ADD-METHOD"
143 "ALLOCATE-INSTANCE"
144 "CLASS-DEFAULT-INITARGS"
145 "CLASS-DIRECT-DEFAULT-INITARGS"
146 "CLASS-DIRECT-SLOTS"
147 "CLASS-DIRECT-SUBCLASSES"
148 "CLASS-DIRECT-SUPERCLASSES"
149 "CLASS-FINALIZED-P"
150 "CLASS-PRECEDENCE-LIST"
151 "CLASS-PROTOTYPE"
152 "CLASS-SLOTS"
153 "COMPUTE-APPLICABLE-METHODS"
154 "COMPUTE-APPLICABLE-METHODS-USING-CLASSES"
155 "COMPUTE-CLASS-PRECEDENCE-LIST"
156 "COMPUTE-DISCRIMINATING-FUNCTION"
157 "COMPUTE-EFFECTIVE-METHOD"
158 "COMPUTE-EFFECTIVE-SLOT-DEFINITION"
159 "COMPUTE-SLOTS"
160 "DIRECT-SLOT-DEFINITION-CLASS"
161 "EFFECTIVE-SLOT-DEFINITION-CLASS"
162 "ENSURE-CLASS"
163 "ENSURE-CLASS-USING-CLASS"
164 "ENSURE-GENERIC-FUNCTION"
165 "ENSURE-GENERIC-FUNCTION-USING-CLASS"
166 "EQL-SPECIALIZER-INSTANCE"
167 "EXTRACT-LAMBDA-LIST"
168 "EXTRACT-SPECIALIZER-NAMES"
169 "FINALIZE-INHERITANCE"
170 "FIND-METHOD-COMBINATION"
171 "FUNCALLABLE-STANDARD-INSTANCE-ACCESS"
172 "GENERIC-FUNCTION-ARGUMENT-PRECEDENCE-ORDER"
173 "GENERIC-FUNCTION-DECLARATIONS"
174 "GENERIC-FUNCTION-LAMBDA-LIST"
175 "GENERIC-FUNCTION-METHOD-CLASS"
176 "GENERIC-FUNCTION-METHOD-COMBINATION"
177 "GENERIC-FUNCTION-METHODS"
178 "GENERIC-FUNCTION-NAME"
179 "INTERN-EQL-SPECIALIZER"
180 "MAKE-INSTANCE"
181 "MAKE-METHOD-LAMBDA"
182 "MAP-DEPENDENTS"
183 "METHOD-FUNCTION"
184 "METHOD-GENERIC-FUNCTION"
185 "METHOD-LAMBDA-LIST"
186 "METHOD-SPECIALIZERS"
187 "METHOD-QUALIFIERS"
188 "ACCESSOR-METHOD-SLOT-DEFINITION"
189 "READER-METHOD-CLASS"
190 "REMOVE-DEPENDENT"
191 "REMOVE-DIRECT-METHOD"
192 "REMOVE-DIRECT-SUBCLASS"
193 "REMOVE-METHOD"
194 "SET-FUNCALLABLE-INSTANCE-FUNCTION"
195 "SLOT-BOUNDP-USING-CLASS"
196 "SLOT-DEFINITION-ALLOCATION"
197 "SLOT-DEFINITION-INITARGS"
198 "SLOT-DEFINITION-INITFORM"
199 "SLOT-DEFINITION-INITFUNCTION"
200 "SLOT-DEFINITION-LOCATION"
201 "SLOT-DEFINITION-NAME"
202 "SLOT-DEFINITION-READERS"
203 "SLOT-DEFINITION-WRITERS"
204 "SLOT-DEFINITION-TYPE"
205 "SLOT-MAKUNBOUND-USING-CLASS"
206 "SLOT-VALUE-USING-CLASS"
207 "SPECIALIZER-DIRECT-GENERIC-FUNCTION"
208 "SPECIALIZER-DIRECT-METHODS"
209 "STANDARD-INSTANCE-ACCESS"
210 "UPDATE-DEPENDENT"
211 "VALIDATE-SUPERCLASS"
212 "WRITER-METHOD-CLASS"
213 ))
214
215 (defpackage "SLOT-ACCESSOR-NAME" (:use)(:nicknames "S-A-N"))
216
217 (in-package :pcl)
218 (defvar *slot-accessor-name-package*
219 (find-package :slot-accessor-name))
220
221 ;;; These symbol names came from "The Art of the Metaobject Protocol".
222 ;;;
223
224 (defpackage "CLOS-MOP"
225 (:use :pcl :common-lisp)
226 (:nicknames "MOP")
227
228 (:shadowing-import-from :pcl
229 "FIND-CLASS" "CLASS-NAME" "BUILT-IN-CLASS" "CLASS-OF")
230 (:export
231 "FIND-CLASS" "CLASS-NAME" "BUILT-IN-CLASS" "CLASS-OF")
232
233 (:export ;; Names taken from "The Art of the Metaobject Protocol"
234 "ADD-DEPENDENT"
235 "ADD-DIRECT-METHOD"
236 "ADD-DIRECT-SUBCLASS"
237 "ADD-METHOD"
238 "ALLOCATE-INSTANCE"
239 "CLASS-DEFAULT-INITARGS"
240 "CLASS-DIRECT-DEFAULT-INITARGS"
241 "CLASS-DIRECT-SLOTS"
242 "CLASS-DIRECT-SUBCLASSES"
243 "CLASS-DIRECT-SUPERCLASSES"
244 "CLASS-FINALIZED-P"
245 "CLASS-NAME"
246 "CLASS-PRECEDENCE-LIST"
247 "CLASS-PROTOTYPE"
248 "CLASS-SLOTS"
249 "COMPUTE-APPLICABLE-METHODS"
250 "COMPUTE-APPLICABLE-METHODS-USING-CLASSES"
251 "COMPUTE-CLASS-PRECEDENCE-LIST"
252 "COMPUTE-DEFAULT-INITARGS"
253 "COMPUTE-DISCRIMINATING-FUNCTION"
254 "COMPUTE-EFFECTIVE-METHOD"
255 "COMPUTE-EFFECTIVE-SLOT-DEFINITION"
256 "COMPUTE-SLOTS"
257 "DIRECT-SLOT-DEFINITION-CLASS"
258 "EFFECTIVE-SLOT-DEFINITION-CLASS"
259 "ENSURE-CLASS"
260 "ENSURE-CLASS-USING-CLASS"
261 "ENSURE-GENERIC-FUNCTION"
262 "ENSURE-GENERIC-FUNCTION-USING-CLASS"
263 "EQL-SPECIALIZER-OBJECT"
264 "EXTRACT-LAMBDA-LIST"
265 "EXTRACT-SPECIALIZER-NAMES"
266 "FINALIZE-INHERITANCE"
267 "FIND-METHOD-COMBINATION"
268 "FUNCALLABLE-STANDARD-INSTANCE-ACCESS"
269 "GENERIC-FUNCTION-ARGUMENT-PRECEDENCE-ORDER"
270 "GENERIC-FUNCTION-DECLARATIONS"
271 "GENERIC-FUNCTION-LAMBDA-LIST"
272 "GENERIC-FUNCTION-METHOD-CLASS"
273 "GENERIC-FUNCTION-METHOD-COMBINATION"
274 "GENERIC-FUNCTION-METHODS"
275 "GENERIC-FUNCTION-NAME"
276 "INTERN-EQL-SPECIALIZER"
277 "MAKE-INSTANCE"
278 "MAKE-METHOD-LAMBDA"
279 "MAP-DEPENDENTS"
280 "METHOD-FUNCTION"
281 "METHOD-GENERIC-FUNCTION"
282 "METHOD-LAMBDA-LIST"
283 "METHOD-SPECIALIZERS"
284 "METHOD-QUALIFIERS"
285 "ACCESSOR-METHOD-SLOT-DEFINITION"
286
287 "SLOT-DEFINITION-ALLOCATION"
288 "SLOT-DEFINITION-INITARGS"
289 "SLOT-DEFINITION-INITFORM"
290 "SLOT-DEFINITION-INITFUNCTION"
291 "SLOT-DEFINITION-NAME"
292 "SLOT-DEFINITION-TYPE"
293 "SLOT-DEFINITION-READERS"
294 "SLOT-DEFINITION-WRITERS"
295 "SLOT-DEFINITION-LOCATION"
296
297 "READER-METHOD-CLASS"
298 "REMOVE-DEPENDENT"
299 "REMOVE-DIRECT-METHOD"
300 "REMOVE-DIRECT-SUBCLASS"
301 "REMOVE-METHOD"
302 "SET-FUNCALLABLE-INSTANCE-FUNCTION"
303 "SLOT-BOUNDP-USING-CLASS"
304 "SLOT-MAKUNBOUND-USING-CLASS"
305 "SLOT-VALUE-USING-CLASS"
306 "SPECIALIZER-DIRECT-GENERIC-FUNCTIONS"
307 "SPECIALIZER-DIRECT-METHODS"
308 "STANDARD-INSTANCE-ACCESS"
309 "UPDATE-DEPENDENT"
310 "VALIDATE-SUPERCLASS"
311 "WRITER-METHOD-CLASS"
312 ))

  ViewVC Help
Powered by ViewVC 1.1.5