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

Contents of /src/pcl/pkg.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.24 - (show annotations)
Tue Mar 25 16:42:24 2003 UTC (11 years ago) by gerd
Branch: MAIN
Changes since 1.23: +16 -1 lines
	* pkg.lisp ("CLOS-MOP"): Export some more symbols.
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.24 2003/03/25 16:42:24 gerd 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"
46 (:use :common-lisp :walker)
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
123 ;;*chapter-6-exports*
124 (:export "ADD-DEPENDENT"
125 "ADD-DIRECT-METHOD"
126 "ADD-DIRECT-SUBCLASS"
127 "ADD-METHOD"
128 "ALLOCATE-INSTANCE"
129 "CLASS-DEFAULT-INITARGS"
130 "CLASS-DIRECT-DEFAULT-INITARGS"
131 "CLASS-DIRECT-SLOTS"
132 "CLASS-DIRECT-SUBCLASSES"
133 "CLASS-DIRECT-SUPERCLASSES"
134 "CLASS-FINALIZED-P"
135 "CLASS-PRECEDENCE-LIST"
136 "CLASS-PROTOTYPE"
137 "CLASS-SLOTS"
138 "COMPUTE-APPLICABLE-METHODS"
139 "COMPUTE-APPLICABLE-METHODS-USING-CLASSES"
140 "COMPUTE-CLASS-PRECEDENCE-LIST"
141 "COMPUTE-DISCRIMINATING-FUNCTION"
142 "COMPUTE-DEFAULT-INITARGS"
143 "COMPUTE-EFFECTIVE-METHOD"
144 "COMPUTE-EFFECTIVE-SLOT-DEFINITION"
145 "COMPUTE-SLOTS"
146 "DIRECT-SLOT-DEFINITION-CLASS"
147 "EFFECTIVE-SLOT-DEFINITION-CLASS"
148 "ENSURE-CLASS"
149 "ENSURE-CLASS-USING-CLASS"
150 "ENSURE-GENERIC-FUNCTION"
151 "ENSURE-GENERIC-FUNCTION-USING-CLASS"
152 "EQL-SPECIALIZER-OBJECT"
153 "EXTRACT-LAMBDA-LIST"
154 "EXTRACT-SPECIALIZER-NAMES"
155 "FINALIZE-INHERITANCE"
156 "FIND-METHOD-COMBINATION"
157 "FUNCALLABLE-STANDARD-INSTANCE-ACCESS"
158 "GENERIC-FUNCTION-ARGUMENT-PRECEDENCE-ORDER"
159 "GENERIC-FUNCTION-DECLARATIONS"
160 "GENERIC-FUNCTION-LAMBDA-LIST"
161 "GENERIC-FUNCTION-METHOD-CLASS"
162 "GENERIC-FUNCTION-METHOD-COMBINATION"
163 "GENERIC-FUNCTION-METHODS"
164 "GENERIC-FUNCTION-NAME"
165 "INTERN-EQL-SPECIALIZER"
166 "MAKE-INSTANCE"
167 "MAKE-METHOD-LAMBDA"
168 "MAP-DEPENDENTS"
169 "METHOD-FUNCTION"
170 "METHOD-GENERIC-FUNCTION"
171 "METHOD-LAMBDA-LIST"
172 "METHOD-SPECIALIZERS"
173 "METHOD-QUALIFIERS"
174 "ACCESSOR-METHOD-SLOT-DEFINITION"
175 "READER-METHOD-CLASS"
176 "REMOVE-DEPENDENT"
177 "REMOVE-DIRECT-METHOD"
178 "REMOVE-DIRECT-SUBCLASS"
179 "REMOVE-METHOD"
180 "SET-FUNCALLABLE-INSTANCE-FUNCTION"
181 "SLOT-BOUNDP-USING-CLASS"
182 "SLOT-DEFINITION-ALLOCATION"
183 "SLOT-DEFINITION-INITARGS"
184 "SLOT-DEFINITION-INITFORM"
185 "SLOT-DEFINITION-INITFUNCTION"
186 "SLOT-DEFINITION-LOCATION"
187 "SLOT-DEFINITION-NAME"
188 "SLOT-DEFINITION-READERS"
189 "SLOT-DEFINITION-WRITERS"
190 "SLOT-DEFINITION-TYPE"
191 "SLOT-MAKUNBOUND-USING-CLASS"
192 "SLOT-VALUE-USING-CLASS"
193 "SPECIALIZER-DIRECT-GENERIC-FUNCTIONS"
194 "SPECIALIZER-DIRECT-METHODS"
195 "STANDARD-INSTANCE-ACCESS"
196 "UPDATE-DEPENDENT"
197 "VALIDATE-SUPERCLASS"
198 "WRITER-METHOD-CLASS"))
199
200 ;;;
201 ;;; These symbol names came from "The Art of the Metaobject Protocol".
202 ;;;
203 (defpackage "CLOS-MOP"
204 (:use :pcl :common-lisp)
205 (:nicknames "MOP")
206 (:export "ACCESSOR-METHOD-SLOT-DEFINITION"
207 "ADD-DEPENDENT"
208 "ADD-DIRECT-METHOD"
209 "ADD-DIRECT-SUBCLASS"
210 "ADD-METHOD"
211 "ALLOCATE-INSTANCE"
212 "CLASS-DEFAULT-INITARGS"
213 "CLASS-DIRECT-DEFAULT-INITARGS"
214 "CLASS-DIRECT-SLOTS"
215 "CLASS-DIRECT-SUBCLASSES"
216 "CLASS-DIRECT-SUPERCLASSES"
217 "CLASS-FINALIZED-P"
218 "CLASS-NAME"
219 "CLASS-PRECEDENCE-LIST"
220 "CLASS-PROTOTYPE"
221 "CLASS-SLOTS"
222 "COMPUTE-APPLICABLE-METHODS"
223 "COMPUTE-APPLICABLE-METHODS-USING-CLASSES"
224 "COMPUTE-CLASS-PRECEDENCE-LIST"
225 "COMPUTE-DEFAULT-INITARGS"
226 "COMPUTE-DISCRIMINATING-FUNCTION"
227 "COMPUTE-EFFECTIVE-METHOD"
228 "COMPUTE-EFFECTIVE-SLOT-DEFINITION"
229 "COMPUTE-SLOTS"
230 "DIRECT-SLOT-DEFINITION"
231 "DIRECT-SLOT-DEFINITION-CLASS"
232 "EFFECTIVE-SLOT-DEFINITION"
233 "EFFECTIVE-SLOT-DEFINITION-CLASS"
234 "ENSURE-CLASS"
235 "ENSURE-CLASS-USING-CLASS"
236 "ENSURE-GENERIC-FUNCTION"
237 "ENSURE-GENERIC-FUNCTION-USING-CLASS"
238 "EQL-SPECIALIZER"
239 "EQL-SPECIALIZER-OBJECT"
240 "EXTRACT-LAMBDA-LIST"
241 "EXTRACT-SPECIALIZER-NAMES"
242 "FINALIZE-INHERITANCE"
243 "FIND-METHOD-COMBINATION"
244 "FORWARD-REFERENCED-CLASS"
245 "FUNCALLABLE-STANDARD-CLASS"
246 "FUNCALLABLE-STANDARD-INSTANCE-ACCESS"
247 "FUNCALLABLE-STANDARD-OBJECT"
248 "GENERIC-FUNCTION-ARGUMENT-PRECEDENCE-ORDER"
249 "GENERIC-FUNCTION-DECLARATIONS"
250 "GENERIC-FUNCTION-LAMBDA-LIST"
251 "GENERIC-FUNCTION-METHOD-CLASS"
252 "GENERIC-FUNCTION-METHOD-COMBINATION"
253 "GENERIC-FUNCTION-METHODS"
254 "GENERIC-FUNCTION-NAME"
255 "INTERN-EQL-SPECIALIZER"
256 "MAKE-INSTANCE"
257 "MAKE-METHOD-LAMBDA"
258 "MAP-DEPENDENTS"
259 ;"METAOBJECT"
260 "METHOD-FUNCTION"
261 "METHOD-GENERIC-FUNCTION"
262 "METHOD-LAMBDA-LIST"
263 "METHOD-QUALIFIERS"
264 "METHOD-SPECIALIZERS"
265 "READER-METHOD-CLASS"
266 "REMOVE-DEPENDENT"
267 "REMOVE-DIRECT-METHOD"
268 "REMOVE-DIRECT-SUBCLASS"
269 "REMOVE-METHOD"
270 "SET-FUNCALLABLE-INSTANCE-FUNCTION"
271 "SLOT-BOUNDP-USING-CLASS"
272 "SLOT-DEFINITION"
273 "SLOT-DEFINITION-ALLOCATION"
274 "SLOT-DEFINITION-INITARGS"
275 "SLOT-DEFINITION-INITFORM"
276 "SLOT-DEFINITION-INITFUNCTION"
277 "SLOT-DEFINITION-LOCATION"
278 "SLOT-DEFINITION-NAME"
279 "SLOT-DEFINITION-READERS"
280 "SLOT-DEFINITION-TYPE"
281 "SLOT-DEFINITION-WRITERS"
282 "SLOT-MAKUNBOUND-USING-CLASS"
283 "SLOT-VALUE-USING-CLASS"
284 "SPECIALIZER"
285 "SPECIALIZER-DIRECT-GENERIC-FUNCTIONS"
286 "SPECIALIZER-DIRECT-METHODS"
287 "STANDARD-ACCESSOR-METHOD"
288 "STANDARD-DIRECT-SLOT-DEFINITION"
289 "STANDARD-EFFECTIVE-SLOT-DEFINITION"
290 "STANDARD-INSTANCE-ACCESS"
291 "STANDARD-READER-METHOD"
292 "STANDARD-SLOT-DEFINITION"
293 "STANDARD-WRITER-METHOD"
294 "UPDATE-DEPENDENT"
295 "VALIDATE-SUPERCLASS"
296 "WRITER-METHOD-CLASS"))

  ViewVC Help
Powered by ViewVC 1.1.5