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

Contents of /src/pcl/pkg.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.20 - (show annotations)
Mon Aug 26 02:23:15 2002 UTC (11 years, 7 months ago) by pmai
Branch: MAIN
CVS Tags: LINKAGE_TABLE, PRE_LINKAGE_TABLE
Changes since 1.19: +2 -9 lines
Huge patch by Gerd Moellmann that removes PCL::ITERATE and PCL::GATHER*
in favor of normal CL constructs.  In a similar vein to SBCL, this patch
also replaces all uses of #'(lambda ...) by just (lambda ...), and
removes now-dated looking quotes in front of self-evaluating objects,
like keywords and t/nil.  The patch has been slightly frobbed by me,
to correct a couple of slight oversights, and make more effective use
of the loop facility in a number of places.
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.20 2002/08/26 02:23:15 pmai 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 "PCL" (:use :common-lisp :walker)
46 (:shadow "FIND-CLASS" "CLASS-NAME" "CLASS-OF"
47 "CLASS" "BUILT-IN-CLASS" "STRUCTURE-CLASS"
48 "STANDARD-CLASS")
49 (:shadow "DOTIMES")
50 (:import-from :kernel "FUNCALLABLE-INSTANCE-P" "SIMPLE-PROGRAM-ERROR")
51 (:shadow "DOCUMENTATION")
52
53
54 ;;;
55 ;;; These come from the index pages of 88-002R.
56 ;;;
57 ;;;
58
59 (:export "ADD-METHOD"
60 "BUILT-IN-CLASS"
61 "CALL-METHOD"
62 "CALL-NEXT-METHOD"
63 "CHANGE-CLASS"
64 "CLASS-NAME"
65 "CLASS-OF"
66 "COMPUTE-APPLICABLE-METHODS"
67 "DEFCLASS"
68 "DEFGENERIC"
69 "DEFINE-METHOD-COMBINATION"
70 "DEFMETHOD"
71 "DESCRIBE-OBJECT"
72 "ENSURE-GENERIC-FUNCTION"
73 "FIND-CLASS"
74 "FIND-METHOD"
75 "FUNCTION-KEYWORDS"
76 "GENERIC-FLET"
77 "GENERIC-LABELS"
78 "INITIALIZE-INSTANCE"
79 "INVALID-METHOD-ERROR"
80 "MAKE-INSTANCE"
81 "MAKE-INSTANCES-OBSOLETE"
82 "METHOD-COMBINATION-ERROR"
83 "METHOD-QUALIFIERS"
84 "NEXT-METHOD-P"
85 "NO-APPLICABLE-METHOD"
86 "NO-NEXT-METHOD"
87 "PRINT-OBJECT"
88 "REINITIALIZE-INSTANCE"
89 "REMOVE-METHOD"
90 "SHARED-INITIALIZE"
91 "SLOT-BOUNDP"
92 "SLOT-EXISTS-P"
93 "SLOT-MAKUNBOUND"
94 "SLOT-MISSING"
95 "SLOT-UNBOUND"
96 "SLOT-VALUE"
97 "STANDARD"
98 "STANDARD-GENERIC-FUNCTION"
99 "STANDARD-METHOD"
100 "STANDARD-OBJECT"
101 "UPDATE-INSTANCE-FOR-DIFFERENT-CLASS"
102 "UPDATE-INSTANCE-FOR-REDEFINED-CLASS"
103 "WITH-ACCESSORS"
104 "WITH-ADDED-METHODS"
105 "WITH-SLOTS"
106 )
107
108 (:export "STANDARD-INSTANCE"
109 "FUNCALLABLE-STANDARD-INSTANCE"
110 "GENERIC-FUNCTION"
111 "STANDARD-GENERIC-FUNCTION"
112 "METHOD"
113 "STANDARD-METHOD"
114 "STANDARD-ACCESSOR-METHOD"
115 "STANDARD-READER-METHOD"
116 "STANDARD-WRITER-METHOD"
117 "METHOD-COMBINATION"
118 "SLOT-DEFINITION"
119 "DIRECT-SLOT-DEFINITION"
120 "EFFECTIVE-SLOT-DEFINITION"
121 "STANDARD-SLOT-DEFINITION"
122 "STANDARD-DIRECT-SLOT-DEFINITION"
123 "STANDARD-EFFECTIVE-SLOT-DEFINITION"
124 "SPECIALIZER"
125 "EQL-SPECIALIZER"
126 "FORWARD-REFERENCED-CLASS"
127 "FUNCALLABLE-STANDARD-CLASS"
128 "FUNCALLABLE-STANDARD-OBJECT")
129
130 ;;*chapter-6-exports*
131 (:export "ADD-DEPENDENT"
132 "ADD-DIRECT-METHOD"
133 "ADD-DIRECT-SUBCLASS"
134 "ADD-METHOD"
135 "ALLOCATE-INSTANCE"
136 "CLASS-DEFAULT-INITARGS"
137 "CLASS-DIRECT-DEFAULT-INITARGS"
138 "CLASS-DIRECT-SLOTS"
139 "CLASS-DIRECT-SUBCLASSES"
140 "CLASS-DIRECT-SUPERCLASSES"
141 "CLASS-FINALIZED-P"
142 "CLASS-PRECEDENCE-LIST"
143 "CLASS-PROTOTYPE"
144 "CLASS-SLOTS"
145 "COMPUTE-APPLICABLE-METHODS"
146 "COMPUTE-APPLICABLE-METHODS-USING-CLASSES"
147 "COMPUTE-CLASS-PRECEDENCE-LIST"
148 "COMPUTE-DISCRIMINATING-FUNCTION"
149 "COMPUTE-EFFECTIVE-METHOD"
150 "COMPUTE-EFFECTIVE-SLOT-DEFINITION"
151 "COMPUTE-SLOTS"
152 "DIRECT-SLOT-DEFINITION-CLASS"
153 "EFFECTIVE-SLOT-DEFINITION-CLASS"
154 "ENSURE-CLASS"
155 "ENSURE-CLASS-USING-CLASS"
156 "ENSURE-GENERIC-FUNCTION"
157 "ENSURE-GENERIC-FUNCTION-USING-CLASS"
158 "EQL-SPECIALIZER-INSTANCE"
159 "EXTRACT-LAMBDA-LIST"
160 "EXTRACT-SPECIALIZER-NAMES"
161 "FINALIZE-INHERITANCE"
162 "FIND-METHOD-COMBINATION"
163 "FUNCALLABLE-STANDARD-INSTANCE-ACCESS"
164 "GENERIC-FUNCTION-ARGUMENT-PRECEDENCE-ORDER"
165 "GENERIC-FUNCTION-DECLARATIONS"
166 "GENERIC-FUNCTION-LAMBDA-LIST"
167 "GENERIC-FUNCTION-METHOD-CLASS"
168 "GENERIC-FUNCTION-METHOD-COMBINATION"
169 "GENERIC-FUNCTION-METHODS"
170 "GENERIC-FUNCTION-NAME"
171 "INTERN-EQL-SPECIALIZER"
172 "MAKE-INSTANCE"
173 "MAKE-METHOD-LAMBDA"
174 "MAP-DEPENDENTS"
175 "METHOD-FUNCTION"
176 "METHOD-GENERIC-FUNCTION"
177 "METHOD-LAMBDA-LIST"
178 "METHOD-SPECIALIZERS"
179 "METHOD-QUALIFIERS"
180 "ACCESSOR-METHOD-SLOT-DEFINITION"
181 "READER-METHOD-CLASS"
182 "REMOVE-DEPENDENT"
183 "REMOVE-DIRECT-METHOD"
184 "REMOVE-DIRECT-SUBCLASS"
185 "REMOVE-METHOD"
186 "SET-FUNCALLABLE-INSTANCE-FUNCTION"
187 "SLOT-BOUNDP-USING-CLASS"
188 "SLOT-DEFINITION-ALLOCATION"
189 "SLOT-DEFINITION-INITARGS"
190 "SLOT-DEFINITION-INITFORM"
191 "SLOT-DEFINITION-INITFUNCTION"
192 "SLOT-DEFINITION-LOCATION"
193 "SLOT-DEFINITION-NAME"
194 "SLOT-DEFINITION-READERS"
195 "SLOT-DEFINITION-WRITERS"
196 "SLOT-DEFINITION-TYPE"
197 "SLOT-MAKUNBOUND-USING-CLASS"
198 "SLOT-VALUE-USING-CLASS"
199 "SPECIALIZER-DIRECT-GENERIC-FUNCTION"
200 "SPECIALIZER-DIRECT-METHODS"
201 "STANDARD-INSTANCE-ACCESS"
202 "UPDATE-DEPENDENT"
203 "VALIDATE-SUPERCLASS"
204 "WRITER-METHOD-CLASS"
205 ))
206
207 (defpackage "SLOT-ACCESSOR-NAME" (:use)(:nicknames "S-A-N"))
208
209 (in-package :pcl)
210 (defvar *slot-accessor-name-package*
211 (find-package :slot-accessor-name))
212
213 ;;; These symbol names came from "The Art of the Metaobject Protocol".
214 ;;;
215
216 (defpackage "CLOS-MOP"
217 (:use :pcl :common-lisp)
218 (:nicknames "MOP")
219
220 (:shadowing-import-from :pcl
221 "FIND-CLASS" "CLASS-NAME" "BUILT-IN-CLASS" "CLASS-OF")
222 (:export
223 "FIND-CLASS" "CLASS-NAME" "BUILT-IN-CLASS" "CLASS-OF")
224
225 (:export ;; Names taken from "The Art of the Metaobject Protocol"
226 "ADD-DEPENDENT"
227 "ADD-DIRECT-METHOD"
228 "ADD-DIRECT-SUBCLASS"
229 "ADD-METHOD"
230 "ALLOCATE-INSTANCE"
231 "CLASS-DEFAULT-INITARGS"
232 "CLASS-DIRECT-DEFAULT-INITARGS"
233 "CLASS-DIRECT-SLOTS"
234 "CLASS-DIRECT-SUBCLASSES"
235 "CLASS-DIRECT-SUPERCLASSES"
236 "CLASS-FINALIZED-P"
237 "CLASS-NAME"
238 "CLASS-PRECEDENCE-LIST"
239 "CLASS-PROTOTYPE"
240 "CLASS-SLOTS"
241 "COMPUTE-APPLICABLE-METHODS"
242 "COMPUTE-APPLICABLE-METHODS-USING-CLASSES"
243 "COMPUTE-CLASS-PRECEDENCE-LIST"
244 "COMPUTE-DEFAULT-INITARGS"
245 "COMPUTE-DISCRIMINATING-FUNCTION"
246 "COMPUTE-EFFECTIVE-METHOD"
247 "COMPUTE-EFFECTIVE-SLOT-DEFINITION"
248 "COMPUTE-SLOTS"
249 "DIRECT-SLOT-DEFINITION-CLASS"
250 "EFFECTIVE-SLOT-DEFINITION-CLASS"
251 "ENSURE-CLASS"
252 "ENSURE-CLASS-USING-CLASS"
253 "ENSURE-GENERIC-FUNCTION"
254 "ENSURE-GENERIC-FUNCTION-USING-CLASS"
255 "EQL-SPECIALIZER-OBJECT"
256 "EXTRACT-LAMBDA-LIST"
257 "EXTRACT-SPECIALIZER-NAMES"
258 "FINALIZE-INHERITANCE"
259 "FIND-METHOD-COMBINATION"
260 "FUNCALLABLE-STANDARD-INSTANCE-ACCESS"
261 "GENERIC-FUNCTION-ARGUMENT-PRECEDENCE-ORDER"
262 "GENERIC-FUNCTION-DECLARATIONS"
263 "GENERIC-FUNCTION-LAMBDA-LIST"
264 "GENERIC-FUNCTION-METHOD-CLASS"
265 "GENERIC-FUNCTION-METHOD-COMBINATION"
266 "GENERIC-FUNCTION-METHODS"
267 "GENERIC-FUNCTION-NAME"
268 "INTERN-EQL-SPECIALIZER"
269 "MAKE-INSTANCE"
270 "MAKE-METHOD-LAMBDA"
271 "MAP-DEPENDENTS"
272 "METHOD-FUNCTION"
273 "METHOD-GENERIC-FUNCTION"
274 "METHOD-LAMBDA-LIST"
275 "METHOD-SPECIALIZERS"
276 "METHOD-QUALIFIERS"
277 "ACCESSOR-METHOD-SLOT-DEFINITION"
278
279 "SLOT-DEFINITION-ALLOCATION"
280 "SLOT-DEFINITION-INITARGS"
281 "SLOT-DEFINITION-INITFORM"
282 "SLOT-DEFINITION-INITFUNCTION"
283 "SLOT-DEFINITION-NAME"
284 "SLOT-DEFINITION-TYPE"
285 "SLOT-DEFINITION-READERS"
286 "SLOT-DEFINITION-WRITERS"
287 "SLOT-DEFINITION-LOCATION"
288
289 "READER-METHOD-CLASS"
290 "REMOVE-DEPENDENT"
291 "REMOVE-DIRECT-METHOD"
292 "REMOVE-DIRECT-SUBCLASS"
293 "REMOVE-METHOD"
294 "SET-FUNCALLABLE-INSTANCE-FUNCTION"
295 "SLOT-BOUNDP-USING-CLASS"
296 "SLOT-MAKUNBOUND-USING-CLASS"
297 "SLOT-VALUE-USING-CLASS"
298 "SPECIALIZER-DIRECT-GENERIC-FUNCTIONS"
299 "SPECIALIZER-DIRECT-METHODS"
300 "STANDARD-INSTANCE-ACCESS"
301 "UPDATE-DEPENDENT"
302 "VALIDATE-SUPERCLASS"
303 "WRITER-METHOD-CLASS"
304 ))

  ViewVC Help
Powered by ViewVC 1.1.5