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

Contents of /src/pcl/pkg.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.16 - (hide 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 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 pw 1.16
28 dtc 1.15 (ext:file-comment
29 pw 1.16 "$Header: /tiger/var/lib/cvsroots/cmucl/src/pcl/pkg.lisp,v 1.16 1999/05/30 23:14:05 pw Exp $")
30 dtc 1.15 ;;;
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     (: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 wlott 1.1
66    
67     ;;;
68     ;;; These come from the index pages of 88-002R.
69     ;;;
70     ;;;
71    
72 pw 1.11 (: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 dtc 1.13 "DESCRIBE-OBJECT"
85 pw 1.11 "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 ram 1.8
121 pw 1.11 (: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 dtc 1.14 "FUNCALLABLE-STANDARD-CLASS"
141     "FUNCALLABLE-STANDARD-OBJECT")
142 pw 1.11
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 ram 1.8 ))
219 ram 1.3
220 pw 1.11 (defpackage "SLOT-ACCESSOR-NAME" (:use)(:nicknames "S-A-N"))
221 ram 1.8
222 pw 1.11 (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 ram 1.8
229 pw 1.11 (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 pw 1.12 (:export
236     "FIND-CLASS" "CLASS-NAME" "BUILT-IN-CLASS" "CLASS-OF")
237 pw 1.11
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