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

Contents of /src/pcl/pkg.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.20 - (hide annotations)
Mon Aug 26 02:23:15 2002 UTC (11 years, 8 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 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 pmai 1.20 "$Header: /tiger/var/lib/cvsroots/cmucl/src/pcl/pkg.lisp,v 1.20 2002/08/26 02:23:15 pmai Exp $")
30 dtc 1.15 ;;;
31 pw 1.11 ;;; 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 pmai 1.20 (defpackage "PCL" (:use :common-lisp :walker)
46 pw 1.11 (:shadow "FIND-CLASS" "CLASS-NAME" "CLASS-OF"
47     "CLASS" "BUILT-IN-CLASS" "STRUCTURE-CLASS"
48     "STANDARD-CLASS")
49     (:shadow "DOTIMES")
50 pmai 1.19 (:import-from :kernel "FUNCALLABLE-INSTANCE-P" "SIMPLE-PROGRAM-ERROR")
51 pw 1.11 (:shadow "DOCUMENTATION")
52 wlott 1.1
53    
54     ;;;
55     ;;; These come from the index pages of 88-002R.
56     ;;;
57     ;;;
58    
59 pw 1.11 (: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 dtc 1.13 "DESCRIBE-OBJECT"
72 pw 1.11 "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 ram 1.8
108 pw 1.11 (: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 dtc 1.14 "FUNCALLABLE-STANDARD-CLASS"
128     "FUNCALLABLE-STANDARD-OBJECT")
129 pw 1.11
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 ram 1.8 ))
206 ram 1.3
207 pw 1.11 (defpackage "SLOT-ACCESSOR-NAME" (:use)(:nicknames "S-A-N"))
208 ram 1.8
209 pw 1.11 (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 ram 1.8
216 pw 1.11 (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 pw 1.12 (:export
223     "FIND-CLASS" "CLASS-NAME" "BUILT-IN-CLASS" "CLASS-OF")
224 pw 1.11
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