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

Contents of /src/pcl/pkg.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.16 - (show annotations)
Sun May 30 23:14:05 1999 UTC (14 years, 10 months ago) by pw
Branch: MAIN
Changes since 1.15: +2 -14 lines
Remove all #+ and #- conditionals from the source code. What is left
is essentially Common Lisp except for explicit references to things
in CMUCL specific packages.
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.16 1999/05/30 23:14:05 pw 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 (:shadow "DESTRUCTURING-BIND")
59 (:shadow "FIND-CLASS" "CLASS-NAME" "CLASS-OF"
60 "CLASS" "BUILT-IN-CLASS" "STRUCTURE-CLASS"
61 "STANDARD-CLASS")
62 (:shadow "DOTIMES")
63 (:import-from :kernel "FUNCALLABLE-INSTANCE-P")
64 (:shadow "DOCUMENTATION")
65
66
67 ;;;
68 ;;; These come from the index pages of 88-002R.
69 ;;;
70 ;;;
71
72 (:export "ADD-METHOD"
73 "BUILT-IN-CLASS"
74 "CALL-METHOD"
75 "CALL-NEXT-METHOD"
76 "CHANGE-CLASS"
77 "CLASS-NAME"
78 "CLASS-OF"
79 "COMPUTE-APPLICABLE-METHODS"
80 "DEFCLASS"
81 "DEFGENERIC"
82 "DEFINE-METHOD-COMBINATION"
83 "DEFMETHOD"
84 "DESCRIBE-OBJECT"
85 "ENSURE-GENERIC-FUNCTION"
86 "FIND-CLASS"
87 "FIND-METHOD"
88 "FUNCTION-KEYWORDS"
89 "GENERIC-FLET"
90 "GENERIC-LABELS"
91 "INITIALIZE-INSTANCE"
92 "INVALID-METHOD-ERROR"
93 "MAKE-INSTANCE"
94 "MAKE-INSTANCES-OBSOLETE"
95 "METHOD-COMBINATION-ERROR"
96 "METHOD-QUALIFIERS"
97 "NEXT-METHOD-P"
98 "NO-APPLICABLE-METHOD"
99 "NO-NEXT-METHOD"
100 "PRINT-OBJECT"
101 "REINITIALIZE-INSTANCE"
102 "REMOVE-METHOD"
103 "SHARED-INITIALIZE"
104 "SLOT-BOUNDP"
105 "SLOT-EXISTS-P"
106 "SLOT-MAKUNBOUND"
107 "SLOT-MISSING"
108 "SLOT-UNBOUND"
109 "SLOT-VALUE"
110 "STANDARD"
111 "STANDARD-GENERIC-FUNCTION"
112 "STANDARD-METHOD"
113 "STANDARD-OBJECT"
114 "UPDATE-INSTANCE-FOR-DIFFERENT-CLASS"
115 "UPDATE-INSTANCE-FOR-REDEFINED-CLASS"
116 "WITH-ACCESSORS"
117 "WITH-ADDED-METHODS"
118 "WITH-SLOTS"
119 )
120
121 (:export "STANDARD-INSTANCE"
122 "FUNCALLABLE-STANDARD-INSTANCE"
123 "GENERIC-FUNCTION"
124 "STANDARD-GENERIC-FUNCTION"
125 "METHOD"
126 "STANDARD-METHOD"
127 "STANDARD-ACCESSOR-METHOD"
128 "STANDARD-READER-METHOD"
129 "STANDARD-WRITER-METHOD"
130 "METHOD-COMBINATION"
131 "SLOT-DEFINITION"
132 "DIRECT-SLOT-DEFINITION"
133 "EFFECTIVE-SLOT-DEFINITION"
134 "STANDARD-SLOT-DEFINITION"
135 "STANDARD-DIRECT-SLOT-DEFINITION"
136 "STANDARD-EFFECTIVE-SLOT-DEFINITION"
137 "SPECIALIZER"
138 "EQL-SPECIALIZER"
139 "FORWARD-REFERENCED-CLASS"
140 "FUNCALLABLE-STANDARD-CLASS"
141 "FUNCALLABLE-STANDARD-OBJECT")
142
143 ;;*chapter-6-exports*
144 (:export "ADD-DEPENDENT"
145 "ADD-DIRECT-METHOD"
146 "ADD-DIRECT-SUBCLASS"
147 "ADD-METHOD"
148 "ALLOCATE-INSTANCE"
149 "CLASS-DEFAULT-INITARGS"
150 "CLASS-DIRECT-DEFAULT-INITARGS"
151 "CLASS-DIRECT-SLOTS"
152 "CLASS-DIRECT-SUBCLASSES"
153 "CLASS-DIRECT-SUPERCLASSES"
154 "CLASS-FINALIZED-P"
155 "CLASS-PRECEDENCE-LIST"
156 "CLASS-PROTOTYPE"
157 "CLASS-SLOTS"
158 "COMPUTE-APPLICABLE-METHODS"
159 "COMPUTE-APPLICABLE-METHODS-USING-CLASSES"
160 "COMPUTE-CLASS-PRECEDENCE-LIST"
161 "COMPUTE-DISCRIMINATING-FUNCTION"
162 "COMPUTE-EFFECTIVE-METHOD"
163 "COMPUTE-EFFECTIVE-SLOT-DEFINITION"
164 "COMPUTE-SLOTS"
165 "DIRECT-SLOT-DEFINITION-CLASS"
166 "EFFECTIVE-SLOT-DEFINITION-CLASS"
167 "ENSURE-CLASS"
168 "ENSURE-CLASS-USING-CLASS"
169 "ENSURE-GENERIC-FUNCTION"
170 "ENSURE-GENERIC-FUNCTION-USING-CLASS"
171 "EQL-SPECIALIZER-INSTANCE"
172 "EXTRACT-LAMBDA-LIST"
173 "EXTRACT-SPECIALIZER-NAMES"
174 "FINALIZE-INHERITANCE"
175 "FIND-METHOD-COMBINATION"
176 "FUNCALLABLE-STANDARD-INSTANCE-ACCESS"
177 "GENERIC-FUNCTION-ARGUMENT-PRECEDENCE-ORDER"
178 "GENERIC-FUNCTION-DECLARATIONS"
179 "GENERIC-FUNCTION-LAMBDA-LIST"
180 "GENERIC-FUNCTION-METHOD-CLASS"
181 "GENERIC-FUNCTION-METHOD-COMBINATION"
182 "GENERIC-FUNCTION-METHODS"
183 "GENERIC-FUNCTION-NAME"
184 "INTERN-EQL-SPECIALIZER"
185 "MAKE-INSTANCE"
186 "MAKE-METHOD-LAMBDA"
187 "MAP-DEPENDENTS"
188 "METHOD-FUNCTION"
189 "METHOD-GENERIC-FUNCTION"
190 "METHOD-LAMBDA-LIST"
191 "METHOD-SPECIALIZERS"
192 "METHOD-QUALIFIERS"
193 "ACCESSOR-METHOD-SLOT-DEFINITION"
194 "READER-METHOD-CLASS"
195 "REMOVE-DEPENDENT"
196 "REMOVE-DIRECT-METHOD"
197 "REMOVE-DIRECT-SUBCLASS"
198 "REMOVE-METHOD"
199 "SET-FUNCALLABLE-INSTANCE-FUNCTION"
200 "SLOT-BOUNDP-USING-CLASS"
201 "SLOT-DEFINITION-ALLOCATION"
202 "SLOT-DEFINITION-INITARGS"
203 "SLOT-DEFINITION-INITFORM"
204 "SLOT-DEFINITION-INITFUNCTION"
205 "SLOT-DEFINITION-LOCATION"
206 "SLOT-DEFINITION-NAME"
207 "SLOT-DEFINITION-READERS"
208 "SLOT-DEFINITION-WRITERS"
209 "SLOT-DEFINITION-TYPE"
210 "SLOT-MAKUNBOUND-USING-CLASS"
211 "SLOT-VALUE-USING-CLASS"
212 "SPECIALIZER-DIRECT-GENERIC-FUNCTION"
213 "SPECIALIZER-DIRECT-METHODS"
214 "STANDARD-INSTANCE-ACCESS"
215 "UPDATE-DEPENDENT"
216 "VALIDATE-SUPERCLASS"
217 "WRITER-METHOD-CLASS"
218 ))
219
220 (defpackage "SLOT-ACCESSOR-NAME" (:use)(:nicknames "S-A-N"))
221
222 (in-package :pcl)
223 (defvar *slot-accessor-name-package*
224 (find-package :slot-accessor-name))
225
226 ;;; These symbol names came from "The Art of the Metaobject Protocol".
227 ;;;
228
229 (defpackage "CLOS-MOP"
230 (:use :pcl :common-lisp)
231 (:nicknames "MOP")
232
233 (:shadowing-import-from :pcl
234 "FIND-CLASS" "CLASS-NAME" "BUILT-IN-CLASS" "CLASS-OF")
235 (:export
236 "FIND-CLASS" "CLASS-NAME" "BUILT-IN-CLASS" "CLASS-OF")
237
238 (:export ;; Names taken from "The Art of the Metaobject Protocol"
239 "ADD-DEPENDENT"
240 "ADD-DIRECT-METHOD"
241 "ADD-DIRECT-SUBCLASS"
242 "ADD-METHOD"
243 "ALLOCATE-INSTANCE"
244 "CLASS-DEFAULT-INITARGS"
245 "CLASS-DIRECT-DEFAULT-INITARGS"
246 "CLASS-DIRECT-SLOTS"
247 "CLASS-DIRECT-SUBCLASSES"
248 "CLASS-DIRECT-SUPERCLASSES"
249 "CLASS-FINALIZED-P"
250 "CLASS-NAME"
251 "CLASS-PRECEDENCE-LIST"
252 "CLASS-PROTOTYPE"
253 "CLASS-SLOTS"
254 "COMPUTE-APPLICABLE-METHODS"
255 "COMPUTE-APPLICABLE-METHODS-USING-CLASSES"
256 "COMPUTE-CLASS-PRECEDENCE-LIST"
257 "COMPUTE-DEFAULT-INITARGS"
258 "COMPUTE-DISCRIMINATING-FUNCTION"
259 "COMPUTE-EFFECTIVE-METHOD"
260 "COMPUTE-EFFECTIVE-SLOT-DEFINITION"
261 "COMPUTE-SLOTS"
262 "DIRECT-SLOT-DEFINITION-CLASS"
263 "EFFECTIVE-SLOT-DEFINITION-CLASS"
264 "ENSURE-CLASS"
265 "ENSURE-CLASS-USING-CLASS"
266 "ENSURE-GENERIC-FUNCTION"
267 "ENSURE-GENERIC-FUNCTION-USING-CLASS"
268 "EQL-SPECIALIZER-OBJECT"
269 "EXTRACT-LAMBDA-LIST"
270 "EXTRACT-SPECIALIZER-NAMES"
271 "FINALIZE-INHERITANCE"
272 "FIND-METHOD-COMBINATION"
273 "FUNCALLABLE-STANDARD-INSTANCE-ACCESS"
274 "GENERIC-FUNCTION-ARGUMENT-PRECEDENCE-ORDER"
275 "GENERIC-FUNCTION-DECLARATIONS"
276 "GENERIC-FUNCTION-LAMBDA-LIST"
277 "GENERIC-FUNCTION-METHOD-CLASS"
278 "GENERIC-FUNCTION-METHOD-COMBINATION"
279 "GENERIC-FUNCTION-METHODS"
280 "GENERIC-FUNCTION-NAME"
281 "INTERN-EQL-SPECIALIZER"
282 "MAKE-INSTANCE"
283 "MAKE-METHOD-LAMBDA"
284 "MAP-DEPENDENTS"
285 "METHOD-FUNCTION"
286 "METHOD-GENERIC-FUNCTION"
287 "METHOD-LAMBDA-LIST"
288 "METHOD-SPECIALIZERS"
289 "METHOD-QUALIFIERS"
290 "ACCESSOR-METHOD-SLOT-DEFINITION"
291
292 "SLOT-DEFINITION-ALLOCATION"
293 "SLOT-DEFINITION-INITARGS"
294 "SLOT-DEFINITION-INITFORM"
295 "SLOT-DEFINITION-INITFUNCTION"
296 "SLOT-DEFINITION-NAME"
297 "SLOT-DEFINITION-TYPE"
298 "SLOT-DEFINITION-READERS"
299 "SLOT-DEFINITION-WRITERS"
300 "SLOT-DEFINITION-LOCATION"
301
302 "READER-METHOD-CLASS"
303 "REMOVE-DEPENDENT"
304 "REMOVE-DIRECT-METHOD"
305 "REMOVE-DIRECT-SUBCLASS"
306 "REMOVE-METHOD"
307 "SET-FUNCALLABLE-INSTANCE-FUNCTION"
308 "SLOT-BOUNDP-USING-CLASS"
309 "SLOT-MAKUNBOUND-USING-CLASS"
310 "SLOT-VALUE-USING-CLASS"
311 "SPECIALIZER-DIRECT-GENERIC-FUNCTIONS"
312 "SPECIALIZER-DIRECT-METHODS"
313 "STANDARD-INSTANCE-ACCESS"
314 "UPDATE-DEPENDENT"
315 "VALIDATE-SUPERCLASS"
316 "WRITER-METHOD-CLASS"
317 ))

  ViewVC Help
Powered by ViewVC 1.1.5