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

Contents of /src/pcl/pkg.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.26 - (hide annotations)
Sun May 4 13:11:21 2003 UTC (10 years, 11 months ago) by gerd
Branch: MAIN
Changes since 1.25: +3 -3 lines
	Code cleanup.  Use EXTENSIONS package to reduce clutter.

	* src/pcl/defsys.lisp ("PCL", "WALKER"): Use ext.
	* src/pcl/pkg.lisp ("PCL", "WALKER"): Use ext.
	* src/pcl/*.lisp: Remove ext: prefixes.

	* src/pcl/low.lisp (symbolicate*): Renamed from symbolicate.
	* src/pcl/std-class.lisp (shared-initialize):
	* src/pcl/defs.lisp (get-built-in-class-symbol)
	(get-built-in-wrapper-symbol):
	* src/pcl/braid.lisp (initial-classes-and-wrappers)
	(bootstrap-meta-braid): Use symbolicate*.

	* src/pcl/macros.lisp (dolist-carefully): Removed.
	(true, false, zero): Moved to defclass.lisp.
	(printing-random-thing-internal): Removed.
	(printing-random-thing): Removed.
	(rassq): Removed.
	(*keyword-package*): Removed.
	(make-keyword): Removed; import from cl.
	(memq, delq, assq): Macros removed, import from ext.
	(get-declaration): Moved to boot.lisp, where it's used.

	* src/pcl/boot.lisp (get-declaration): Moved here from
	macros.lisp.

	* src/pcl/methods.lisp (named-object-print-function, print-object):
	* src/pcl/low.lisp (print-std-instance):
	* src/pcl/dfun.lisp (print-dfun-info):
	* src/pcl/cache.lisp (print-cache, print-wrapper):
	* src/pcl/boot.lisp (make-early-gf):
	Use print-unreadable-object instead of printing-random-thing.

	* src/pcl/defclass.lisp (true, false, zero): Moved here from
	macros.lisp.

	* src/pcl/methods.lisp (legal-qualifiers-p)
	(legal-specializers-p): Use dolist.
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 gerd 1.26 "$Header: /tiger/var/lib/cvsroots/cmucl/src/pcl/pkg.lisp,v 1.26 2003/05/04 13:11:21 gerd Exp $")
30 dtc 1.15 ;;;
31 pw 1.11 ;;; CMUCL 18a: Jan-1998 -- Changing to DEFPACKAGE.
32    
33 gerd 1.26 (defpackage "WALKER" (:use :common-lisp :ext)
34 pw 1.11 (: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 gerd 1.23 (defpackage "PCL"
46 gerd 1.26 (:use :common-lisp :walker :ext)
47 pmai 1.19 (:import-from :kernel "FUNCALLABLE-INSTANCE-P" "SIMPLE-PROGRAM-ERROR")
48 pw 1.11 (:shadow "DOCUMENTATION")
49     (:export "ADD-METHOD"
50     "BUILT-IN-CLASS"
51     "CALL-METHOD"
52     "CALL-NEXT-METHOD"
53     "CHANGE-CLASS"
54     "CLASS-NAME"
55     "CLASS-OF"
56     "COMPUTE-APPLICABLE-METHODS"
57     "DEFCLASS"
58     "DEFGENERIC"
59     "DEFINE-METHOD-COMBINATION"
60     "DEFMETHOD"
61 dtc 1.13 "DESCRIBE-OBJECT"
62 pw 1.11 "ENSURE-GENERIC-FUNCTION"
63     "FIND-CLASS"
64     "FIND-METHOD"
65     "FUNCTION-KEYWORDS"
66     "INITIALIZE-INSTANCE"
67     "INVALID-METHOD-ERROR"
68     "MAKE-INSTANCE"
69     "MAKE-INSTANCES-OBSOLETE"
70     "METHOD-COMBINATION-ERROR"
71     "METHOD-QUALIFIERS"
72     "NEXT-METHOD-P"
73     "NO-APPLICABLE-METHOD"
74     "NO-NEXT-METHOD"
75     "PRINT-OBJECT"
76     "REINITIALIZE-INSTANCE"
77     "REMOVE-METHOD"
78     "SHARED-INITIALIZE"
79     "SLOT-BOUNDP"
80     "SLOT-EXISTS-P"
81     "SLOT-MAKUNBOUND"
82     "SLOT-MISSING"
83     "SLOT-UNBOUND"
84     "SLOT-VALUE"
85     "STANDARD"
86     "STANDARD-GENERIC-FUNCTION"
87     "STANDARD-METHOD"
88     "STANDARD-OBJECT"
89     "UPDATE-INSTANCE-FOR-DIFFERENT-CLASS"
90     "UPDATE-INSTANCE-FOR-REDEFINED-CLASS"
91     "WITH-ACCESSORS"
92     "WITH-SLOTS"
93     )
94 gerd 1.23
95     (:export "SEAL" "UNSEAL" "SEALED-ERROR")
96    
97     ;; Function names.
98     (:export "EFFECTIVE-METHOD" "FAST-METHOD" "SLOT-ACCESSOR"
99     "CLASS-PREDICATE")
100 ram 1.8
101 pw 1.11 (:export "STANDARD-INSTANCE"
102     "FUNCALLABLE-STANDARD-INSTANCE"
103     "GENERIC-FUNCTION"
104     "STANDARD-GENERIC-FUNCTION"
105     "METHOD"
106     "STANDARD-METHOD"
107     "STANDARD-ACCESSOR-METHOD"
108     "STANDARD-READER-METHOD"
109     "STANDARD-WRITER-METHOD"
110     "METHOD-COMBINATION"
111     "SLOT-DEFINITION"
112     "DIRECT-SLOT-DEFINITION"
113     "EFFECTIVE-SLOT-DEFINITION"
114     "STANDARD-SLOT-DEFINITION"
115     "STANDARD-DIRECT-SLOT-DEFINITION"
116     "STANDARD-EFFECTIVE-SLOT-DEFINITION"
117     "SPECIALIZER"
118     "EQL-SPECIALIZER"
119     "FORWARD-REFERENCED-CLASS"
120 dtc 1.14 "FUNCALLABLE-STANDARD-CLASS"
121 gerd 1.25 "FUNCALLABLE-STANDARD-OBJECT"
122     "METAOBJECT")
123 pw 1.11
124     ;;*chapter-6-exports*
125     (:export "ADD-DEPENDENT"
126     "ADD-DIRECT-METHOD"
127     "ADD-DIRECT-SUBCLASS"
128     "ADD-METHOD"
129     "ALLOCATE-INSTANCE"
130     "CLASS-DEFAULT-INITARGS"
131     "CLASS-DIRECT-DEFAULT-INITARGS"
132     "CLASS-DIRECT-SLOTS"
133     "CLASS-DIRECT-SUBCLASSES"
134     "CLASS-DIRECT-SUPERCLASSES"
135     "CLASS-FINALIZED-P"
136     "CLASS-PRECEDENCE-LIST"
137     "CLASS-PROTOTYPE"
138     "CLASS-SLOTS"
139     "COMPUTE-APPLICABLE-METHODS"
140     "COMPUTE-APPLICABLE-METHODS-USING-CLASSES"
141     "COMPUTE-CLASS-PRECEDENCE-LIST"
142     "COMPUTE-DISCRIMINATING-FUNCTION"
143 gerd 1.23 "COMPUTE-DEFAULT-INITARGS"
144 pw 1.11 "COMPUTE-EFFECTIVE-METHOD"
145     "COMPUTE-EFFECTIVE-SLOT-DEFINITION"
146     "COMPUTE-SLOTS"
147     "DIRECT-SLOT-DEFINITION-CLASS"
148     "EFFECTIVE-SLOT-DEFINITION-CLASS"
149     "ENSURE-CLASS"
150     "ENSURE-CLASS-USING-CLASS"
151     "ENSURE-GENERIC-FUNCTION"
152     "ENSURE-GENERIC-FUNCTION-USING-CLASS"
153 gerd 1.23 "EQL-SPECIALIZER-OBJECT"
154 pw 1.11 "EXTRACT-LAMBDA-LIST"
155     "EXTRACT-SPECIALIZER-NAMES"
156     "FINALIZE-INHERITANCE"
157     "FIND-METHOD-COMBINATION"
158     "FUNCALLABLE-STANDARD-INSTANCE-ACCESS"
159     "GENERIC-FUNCTION-ARGUMENT-PRECEDENCE-ORDER"
160     "GENERIC-FUNCTION-DECLARATIONS"
161     "GENERIC-FUNCTION-LAMBDA-LIST"
162     "GENERIC-FUNCTION-METHOD-CLASS"
163     "GENERIC-FUNCTION-METHOD-COMBINATION"
164     "GENERIC-FUNCTION-METHODS"
165     "GENERIC-FUNCTION-NAME"
166     "INTERN-EQL-SPECIALIZER"
167     "MAKE-INSTANCE"
168     "MAKE-METHOD-LAMBDA"
169     "MAP-DEPENDENTS"
170     "METHOD-FUNCTION"
171     "METHOD-GENERIC-FUNCTION"
172     "METHOD-LAMBDA-LIST"
173     "METHOD-SPECIALIZERS"
174     "METHOD-QUALIFIERS"
175     "ACCESSOR-METHOD-SLOT-DEFINITION"
176     "READER-METHOD-CLASS"
177     "REMOVE-DEPENDENT"
178     "REMOVE-DIRECT-METHOD"
179     "REMOVE-DIRECT-SUBCLASS"
180     "REMOVE-METHOD"
181     "SET-FUNCALLABLE-INSTANCE-FUNCTION"
182     "SLOT-BOUNDP-USING-CLASS"
183     "SLOT-DEFINITION-ALLOCATION"
184     "SLOT-DEFINITION-INITARGS"
185     "SLOT-DEFINITION-INITFORM"
186     "SLOT-DEFINITION-INITFUNCTION"
187     "SLOT-DEFINITION-LOCATION"
188     "SLOT-DEFINITION-NAME"
189     "SLOT-DEFINITION-READERS"
190     "SLOT-DEFINITION-WRITERS"
191     "SLOT-DEFINITION-TYPE"
192     "SLOT-MAKUNBOUND-USING-CLASS"
193     "SLOT-VALUE-USING-CLASS"
194 gerd 1.23 "SPECIALIZER-DIRECT-GENERIC-FUNCTIONS"
195 pw 1.11 "SPECIALIZER-DIRECT-METHODS"
196     "STANDARD-INSTANCE-ACCESS"
197     "UPDATE-DEPENDENT"
198     "VALIDATE-SUPERCLASS"
199 gerd 1.23 "WRITER-METHOD-CLASS"))
200 ram 1.3
201 gerd 1.23 ;;;
202 pw 1.11 ;;; These symbol names came from "The Art of the Metaobject Protocol".
203     ;;;
204     (defpackage "CLOS-MOP"
205     (:use :pcl :common-lisp)
206     (:nicknames "MOP")
207 gerd 1.23 (:export "ACCESSOR-METHOD-SLOT-DEFINITION"
208     "ADD-DEPENDENT"
209     "ADD-DIRECT-METHOD"
210     "ADD-DIRECT-SUBCLASS"
211     "ADD-METHOD"
212     "ALLOCATE-INSTANCE"
213     "CLASS-DEFAULT-INITARGS"
214     "CLASS-DIRECT-DEFAULT-INITARGS"
215     "CLASS-DIRECT-SLOTS"
216     "CLASS-DIRECT-SUBCLASSES"
217     "CLASS-DIRECT-SUPERCLASSES"
218     "CLASS-FINALIZED-P"
219     "CLASS-NAME"
220     "CLASS-PRECEDENCE-LIST"
221     "CLASS-PROTOTYPE"
222     "CLASS-SLOTS"
223     "COMPUTE-APPLICABLE-METHODS"
224     "COMPUTE-APPLICABLE-METHODS-USING-CLASSES"
225     "COMPUTE-CLASS-PRECEDENCE-LIST"
226     "COMPUTE-DEFAULT-INITARGS"
227     "COMPUTE-DISCRIMINATING-FUNCTION"
228     "COMPUTE-EFFECTIVE-METHOD"
229     "COMPUTE-EFFECTIVE-SLOT-DEFINITION"
230     "COMPUTE-SLOTS"
231 gerd 1.24 "DIRECT-SLOT-DEFINITION"
232 gerd 1.23 "DIRECT-SLOT-DEFINITION-CLASS"
233 gerd 1.24 "EFFECTIVE-SLOT-DEFINITION"
234 gerd 1.23 "EFFECTIVE-SLOT-DEFINITION-CLASS"
235     "ENSURE-CLASS"
236     "ENSURE-CLASS-USING-CLASS"
237     "ENSURE-GENERIC-FUNCTION"
238     "ENSURE-GENERIC-FUNCTION-USING-CLASS"
239 gerd 1.24 "EQL-SPECIALIZER"
240 gerd 1.23 "EQL-SPECIALIZER-OBJECT"
241     "EXTRACT-LAMBDA-LIST"
242     "EXTRACT-SPECIALIZER-NAMES"
243     "FINALIZE-INHERITANCE"
244     "FIND-METHOD-COMBINATION"
245 gerd 1.24 "FORWARD-REFERENCED-CLASS"
246     "FUNCALLABLE-STANDARD-CLASS"
247 gerd 1.23 "FUNCALLABLE-STANDARD-INSTANCE-ACCESS"
248 gerd 1.24 "FUNCALLABLE-STANDARD-OBJECT"
249 gerd 1.23 "GENERIC-FUNCTION-ARGUMENT-PRECEDENCE-ORDER"
250     "GENERIC-FUNCTION-DECLARATIONS"
251     "GENERIC-FUNCTION-LAMBDA-LIST"
252     "GENERIC-FUNCTION-METHOD-CLASS"
253     "GENERIC-FUNCTION-METHOD-COMBINATION"
254     "GENERIC-FUNCTION-METHODS"
255     "GENERIC-FUNCTION-NAME"
256     "INTERN-EQL-SPECIALIZER"
257     "MAKE-INSTANCE"
258     "MAKE-METHOD-LAMBDA"
259     "MAP-DEPENDENTS"
260 gerd 1.25 "METAOBJECT"
261 gerd 1.23 "METHOD-FUNCTION"
262     "METHOD-GENERIC-FUNCTION"
263     "METHOD-LAMBDA-LIST"
264     "METHOD-QUALIFIERS"
265     "METHOD-SPECIALIZERS"
266     "READER-METHOD-CLASS"
267     "REMOVE-DEPENDENT"
268     "REMOVE-DIRECT-METHOD"
269     "REMOVE-DIRECT-SUBCLASS"
270     "REMOVE-METHOD"
271     "SET-FUNCALLABLE-INSTANCE-FUNCTION"
272     "SLOT-BOUNDP-USING-CLASS"
273 gerd 1.24 "SLOT-DEFINITION"
274 gerd 1.23 "SLOT-DEFINITION-ALLOCATION"
275     "SLOT-DEFINITION-INITARGS"
276     "SLOT-DEFINITION-INITFORM"
277     "SLOT-DEFINITION-INITFUNCTION"
278     "SLOT-DEFINITION-LOCATION"
279     "SLOT-DEFINITION-NAME"
280     "SLOT-DEFINITION-READERS"
281     "SLOT-DEFINITION-TYPE"
282     "SLOT-DEFINITION-WRITERS"
283     "SLOT-MAKUNBOUND-USING-CLASS"
284     "SLOT-VALUE-USING-CLASS"
285 gerd 1.24 "SPECIALIZER"
286 gerd 1.23 "SPECIALIZER-DIRECT-GENERIC-FUNCTIONS"
287     "SPECIALIZER-DIRECT-METHODS"
288 gerd 1.24 "STANDARD-ACCESSOR-METHOD"
289     "STANDARD-DIRECT-SLOT-DEFINITION"
290     "STANDARD-EFFECTIVE-SLOT-DEFINITION"
291 gerd 1.25 "STANDARD-GENERIC-FUNCTION"
292 gerd 1.23 "STANDARD-INSTANCE-ACCESS"
293 gerd 1.25 "STANDARD-METHOD"
294 gerd 1.24 "STANDARD-READER-METHOD"
295     "STANDARD-SLOT-DEFINITION"
296     "STANDARD-WRITER-METHOD"
297 gerd 1.23 "UPDATE-DEPENDENT"
298     "VALIDATE-SUPERCLASS"
299     "WRITER-METHOD-CLASS"))

  ViewVC Help
Powered by ViewVC 1.1.5