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

Contents of /src/pcl/pkg.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.26 - (show 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 ;;;-*-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.26 2003/05/04 13:11:21 gerd Exp $")
30 ;;;
31 ;;; CMUCL 18a: Jan-1998 -- Changing to DEFPACKAGE.
32
33 (defpackage "WALKER" (:use :common-lisp :ext)
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"
46 (:use :common-lisp :walker :ext)
47 (:import-from :kernel "FUNCALLABLE-INSTANCE-P" "SIMPLE-PROGRAM-ERROR")
48 (: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 "DESCRIBE-OBJECT"
62 "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
95 (:export "SEAL" "UNSEAL" "SEALED-ERROR")
96
97 ;; Function names.
98 (:export "EFFECTIVE-METHOD" "FAST-METHOD" "SLOT-ACCESSOR"
99 "CLASS-PREDICATE")
100
101 (: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 "FUNCALLABLE-STANDARD-CLASS"
121 "FUNCALLABLE-STANDARD-OBJECT"
122 "METAOBJECT")
123
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 "COMPUTE-DEFAULT-INITARGS"
144 "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 "EQL-SPECIALIZER-OBJECT"
154 "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 "SPECIALIZER-DIRECT-GENERIC-FUNCTIONS"
195 "SPECIALIZER-DIRECT-METHODS"
196 "STANDARD-INSTANCE-ACCESS"
197 "UPDATE-DEPENDENT"
198 "VALIDATE-SUPERCLASS"
199 "WRITER-METHOD-CLASS"))
200
201 ;;;
202 ;;; 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 (: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 "DIRECT-SLOT-DEFINITION"
232 "DIRECT-SLOT-DEFINITION-CLASS"
233 "EFFECTIVE-SLOT-DEFINITION"
234 "EFFECTIVE-SLOT-DEFINITION-CLASS"
235 "ENSURE-CLASS"
236 "ENSURE-CLASS-USING-CLASS"
237 "ENSURE-GENERIC-FUNCTION"
238 "ENSURE-GENERIC-FUNCTION-USING-CLASS"
239 "EQL-SPECIALIZER"
240 "EQL-SPECIALIZER-OBJECT"
241 "EXTRACT-LAMBDA-LIST"
242 "EXTRACT-SPECIALIZER-NAMES"
243 "FINALIZE-INHERITANCE"
244 "FIND-METHOD-COMBINATION"
245 "FORWARD-REFERENCED-CLASS"
246 "FUNCALLABLE-STANDARD-CLASS"
247 "FUNCALLABLE-STANDARD-INSTANCE-ACCESS"
248 "FUNCALLABLE-STANDARD-OBJECT"
249 "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 "METAOBJECT"
261 "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 "SLOT-DEFINITION"
274 "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 "SPECIALIZER"
286 "SPECIALIZER-DIRECT-GENERIC-FUNCTIONS"
287 "SPECIALIZER-DIRECT-METHODS"
288 "STANDARD-ACCESSOR-METHOD"
289 "STANDARD-DIRECT-SLOT-DEFINITION"
290 "STANDARD-EFFECTIVE-SLOT-DEFINITION"
291 "STANDARD-GENERIC-FUNCTION"
292 "STANDARD-INSTANCE-ACCESS"
293 "STANDARD-METHOD"
294 "STANDARD-READER-METHOD"
295 "STANDARD-SLOT-DEFINITION"
296 "STANDARD-WRITER-METHOD"
297 "UPDATE-DEPENDENT"
298 "VALIDATE-SUPERCLASS"
299 "WRITER-METHOD-CLASS"))

  ViewVC Help
Powered by ViewVC 1.1.5