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

Contents of /src/pcl/pkg.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.30 - (hide annotations)
Fri Mar 19 15:19:03 2010 UTC (4 years, 1 month ago) by rtoy
Branch: MAIN
CVS Tags: sparc-tramp-assem-base, post-merge-intl-branch, release-20b-pre1, release-20b-pre2, sparc-tramp-assem-2010-07-19, GIT-CONVERSION, cross-sol-x86-merged, RELEASE_20b, cross-sol-x86-base, snapshot-2010-12, snapshot-2010-11, snapshot-2011-09, snapshot-2011-06, snapshot-2011-07, snapshot-2011-04, snapshot-2011-02, snapshot-2011-03, snapshot-2011-01, snapshot-2010-05, snapshot-2010-04, snapshot-2010-07, snapshot-2010-06, snapshot-2010-08, cross-sol-x86-2010-12-20, cross-sparc-branch-base, HEAD
Branch point for: cross-sparc-branch, RELEASE-20B-BRANCH, sparc-tramp-assem-branch, cross-sol-x86-branch
Changes since 1.29: +4 -1 lines
Merge intl-branch 2010-03-18 to HEAD.  To build, you need to use
boot-2010-02-1 as the bootstrap file.  You should probably also use
the new -P option for build.sh to generate and update the po files
while building.
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 rtoy 1.30 "$Header: /tiger/var/lib/cvsroots/cmucl/src/pcl/pkg.lisp,v 1.30 2010/03/19 15:19:03 rtoy Rel $")
30    
31     (intl:textdomain "cmucl")
32    
33 dtc 1.15 ;;;
34 pw 1.11 ;;; CMUCL 18a: Jan-1998 -- Changing to DEFPACKAGE.
35    
36 gerd 1.26 (defpackage "WALKER" (:use :common-lisp :ext)
37 pw 1.11 (:export "DEFINE-WALKER-TEMPLATE"
38     "WALK-FORM"
39     "WALK-FORM-EXPAND-MACROS-P"
40     "NESTED-WALK-FORM"
41     "VARIABLE-LEXICAL-P"
42     "VARIABLE-SPECIAL-P"
43     "VARIABLE-GLOBALLY-SPECIAL-P"
44     "*VARIABLE-DECLARATIONS*"
45     "VARIABLE-DECLARATION"
46     "MACROEXPAND-ALL"))
47    
48 gerd 1.23 (defpackage "PCL"
49 gerd 1.26 (:use :common-lisp :walker :ext)
50 pmai 1.19 (:import-from :kernel "FUNCALLABLE-INSTANCE-P" "SIMPLE-PROGRAM-ERROR")
51 pw 1.11 (:shadow "DOCUMENTATION")
52     (:export "ADD-METHOD"
53     "BUILT-IN-CLASS"
54     "CALL-METHOD"
55     "CALL-NEXT-METHOD"
56     "CHANGE-CLASS"
57     "CLASS-NAME"
58     "CLASS-OF"
59     "COMPUTE-APPLICABLE-METHODS"
60     "DEFCLASS"
61     "DEFGENERIC"
62     "DEFINE-METHOD-COMBINATION"
63     "DEFMETHOD"
64 dtc 1.13 "DESCRIBE-OBJECT"
65 pw 1.11 "ENSURE-GENERIC-FUNCTION"
66     "FIND-CLASS"
67     "FIND-METHOD"
68     "FUNCTION-KEYWORDS"
69     "INITIALIZE-INSTANCE"
70     "INVALID-METHOD-ERROR"
71     "MAKE-INSTANCE"
72     "MAKE-INSTANCES-OBSOLETE"
73     "METHOD-COMBINATION-ERROR"
74     "METHOD-QUALIFIERS"
75     "NEXT-METHOD-P"
76     "NO-APPLICABLE-METHOD"
77     "NO-NEXT-METHOD"
78     "PRINT-OBJECT"
79     "REINITIALIZE-INSTANCE"
80     "REMOVE-METHOD"
81     "SHARED-INITIALIZE"
82     "SLOT-BOUNDP"
83     "SLOT-EXISTS-P"
84     "SLOT-MAKUNBOUND"
85     "SLOT-MISSING"
86     "SLOT-UNBOUND"
87     "SLOT-VALUE"
88     "STANDARD"
89     "STANDARD-GENERIC-FUNCTION"
90     "STANDARD-METHOD"
91     "STANDARD-OBJECT"
92     "UPDATE-INSTANCE-FOR-DIFFERENT-CLASS"
93     "UPDATE-INSTANCE-FOR-REDEFINED-CLASS"
94     "WITH-ACCESSORS"
95     "WITH-SLOTS"
96     )
97 gerd 1.23
98 gerd 1.29 (:export "SEAL" "UNSEAL" "SEALED-ERROR"
99     "*MAX-EMF-PRECOMPUTATION-METHODS*")
100 gerd 1.23
101     ;; Function names.
102     (:export "EFFECTIVE-METHOD" "FAST-METHOD" "SLOT-ACCESSOR"
103     "CLASS-PREDICATE")
104 gerd 1.27
105 gerd 1.28 (:export "FLUSH-EMF-CACHE" "NO-PRIMARY-METHOD"
106     "NO-PRIMARY-METHOD-ERROR")
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 gerd 1.25 "FUNCALLABLE-STANDARD-OBJECT"
129     "METAOBJECT")
130 pw 1.11
131     ;;*chapter-6-exports*
132     (:export "ADD-DEPENDENT"
133     "ADD-DIRECT-METHOD"
134     "ADD-DIRECT-SUBCLASS"
135     "ADD-METHOD"
136     "ALLOCATE-INSTANCE"
137     "CLASS-DEFAULT-INITARGS"
138     "CLASS-DIRECT-DEFAULT-INITARGS"
139     "CLASS-DIRECT-SLOTS"
140     "CLASS-DIRECT-SUBCLASSES"
141     "CLASS-DIRECT-SUPERCLASSES"
142     "CLASS-FINALIZED-P"
143     "CLASS-PRECEDENCE-LIST"
144     "CLASS-PROTOTYPE"
145     "CLASS-SLOTS"
146     "COMPUTE-APPLICABLE-METHODS"
147     "COMPUTE-APPLICABLE-METHODS-USING-CLASSES"
148     "COMPUTE-CLASS-PRECEDENCE-LIST"
149     "COMPUTE-DISCRIMINATING-FUNCTION"
150 gerd 1.23 "COMPUTE-DEFAULT-INITARGS"
151 pw 1.11 "COMPUTE-EFFECTIVE-METHOD"
152     "COMPUTE-EFFECTIVE-SLOT-DEFINITION"
153     "COMPUTE-SLOTS"
154     "DIRECT-SLOT-DEFINITION-CLASS"
155     "EFFECTIVE-SLOT-DEFINITION-CLASS"
156     "ENSURE-CLASS"
157     "ENSURE-CLASS-USING-CLASS"
158     "ENSURE-GENERIC-FUNCTION"
159     "ENSURE-GENERIC-FUNCTION-USING-CLASS"
160 gerd 1.23 "EQL-SPECIALIZER-OBJECT"
161 pw 1.11 "EXTRACT-LAMBDA-LIST"
162     "EXTRACT-SPECIALIZER-NAMES"
163     "FINALIZE-INHERITANCE"
164     "FIND-METHOD-COMBINATION"
165     "FUNCALLABLE-STANDARD-INSTANCE-ACCESS"
166     "GENERIC-FUNCTION-ARGUMENT-PRECEDENCE-ORDER"
167     "GENERIC-FUNCTION-DECLARATIONS"
168     "GENERIC-FUNCTION-LAMBDA-LIST"
169     "GENERIC-FUNCTION-METHOD-CLASS"
170     "GENERIC-FUNCTION-METHOD-COMBINATION"
171     "GENERIC-FUNCTION-METHODS"
172     "GENERIC-FUNCTION-NAME"
173     "INTERN-EQL-SPECIALIZER"
174     "MAKE-INSTANCE"
175     "MAKE-METHOD-LAMBDA"
176     "MAP-DEPENDENTS"
177     "METHOD-FUNCTION"
178     "METHOD-GENERIC-FUNCTION"
179     "METHOD-LAMBDA-LIST"
180     "METHOD-SPECIALIZERS"
181     "METHOD-QUALIFIERS"
182     "ACCESSOR-METHOD-SLOT-DEFINITION"
183     "READER-METHOD-CLASS"
184     "REMOVE-DEPENDENT"
185     "REMOVE-DIRECT-METHOD"
186     "REMOVE-DIRECT-SUBCLASS"
187     "REMOVE-METHOD"
188     "SET-FUNCALLABLE-INSTANCE-FUNCTION"
189     "SLOT-BOUNDP-USING-CLASS"
190     "SLOT-DEFINITION-ALLOCATION"
191     "SLOT-DEFINITION-INITARGS"
192     "SLOT-DEFINITION-INITFORM"
193     "SLOT-DEFINITION-INITFUNCTION"
194     "SLOT-DEFINITION-LOCATION"
195     "SLOT-DEFINITION-NAME"
196     "SLOT-DEFINITION-READERS"
197     "SLOT-DEFINITION-WRITERS"
198     "SLOT-DEFINITION-TYPE"
199     "SLOT-MAKUNBOUND-USING-CLASS"
200     "SLOT-VALUE-USING-CLASS"
201 gerd 1.23 "SPECIALIZER-DIRECT-GENERIC-FUNCTIONS"
202 pw 1.11 "SPECIALIZER-DIRECT-METHODS"
203     "STANDARD-INSTANCE-ACCESS"
204     "UPDATE-DEPENDENT"
205     "VALIDATE-SUPERCLASS"
206 gerd 1.23 "WRITER-METHOD-CLASS"))
207 ram 1.3
208 gerd 1.23 ;;;
209 pw 1.11 ;;; These symbol names came from "The Art of the Metaobject Protocol".
210     ;;;
211     (defpackage "CLOS-MOP"
212     (:use :pcl :common-lisp)
213     (:nicknames "MOP")
214 gerd 1.23 (:export "ACCESSOR-METHOD-SLOT-DEFINITION"
215     "ADD-DEPENDENT"
216     "ADD-DIRECT-METHOD"
217     "ADD-DIRECT-SUBCLASS"
218     "ADD-METHOD"
219     "ALLOCATE-INSTANCE"
220     "CLASS-DEFAULT-INITARGS"
221     "CLASS-DIRECT-DEFAULT-INITARGS"
222     "CLASS-DIRECT-SLOTS"
223     "CLASS-DIRECT-SUBCLASSES"
224     "CLASS-DIRECT-SUPERCLASSES"
225     "CLASS-FINALIZED-P"
226     "CLASS-NAME"
227     "CLASS-PRECEDENCE-LIST"
228     "CLASS-PROTOTYPE"
229     "CLASS-SLOTS"
230     "COMPUTE-APPLICABLE-METHODS"
231     "COMPUTE-APPLICABLE-METHODS-USING-CLASSES"
232     "COMPUTE-CLASS-PRECEDENCE-LIST"
233     "COMPUTE-DEFAULT-INITARGS"
234     "COMPUTE-DISCRIMINATING-FUNCTION"
235     "COMPUTE-EFFECTIVE-METHOD"
236     "COMPUTE-EFFECTIVE-SLOT-DEFINITION"
237     "COMPUTE-SLOTS"
238 gerd 1.24 "DIRECT-SLOT-DEFINITION"
239 gerd 1.23 "DIRECT-SLOT-DEFINITION-CLASS"
240 gerd 1.24 "EFFECTIVE-SLOT-DEFINITION"
241 gerd 1.23 "EFFECTIVE-SLOT-DEFINITION-CLASS"
242     "ENSURE-CLASS"
243     "ENSURE-CLASS-USING-CLASS"
244     "ENSURE-GENERIC-FUNCTION"
245     "ENSURE-GENERIC-FUNCTION-USING-CLASS"
246 gerd 1.24 "EQL-SPECIALIZER"
247 gerd 1.23 "EQL-SPECIALIZER-OBJECT"
248     "EXTRACT-LAMBDA-LIST"
249     "EXTRACT-SPECIALIZER-NAMES"
250     "FINALIZE-INHERITANCE"
251     "FIND-METHOD-COMBINATION"
252 gerd 1.24 "FORWARD-REFERENCED-CLASS"
253     "FUNCALLABLE-STANDARD-CLASS"
254 gerd 1.23 "FUNCALLABLE-STANDARD-INSTANCE-ACCESS"
255 gerd 1.24 "FUNCALLABLE-STANDARD-OBJECT"
256 gerd 1.23 "GENERIC-FUNCTION-ARGUMENT-PRECEDENCE-ORDER"
257     "GENERIC-FUNCTION-DECLARATIONS"
258     "GENERIC-FUNCTION-LAMBDA-LIST"
259     "GENERIC-FUNCTION-METHOD-CLASS"
260     "GENERIC-FUNCTION-METHOD-COMBINATION"
261     "GENERIC-FUNCTION-METHODS"
262     "GENERIC-FUNCTION-NAME"
263     "INTERN-EQL-SPECIALIZER"
264     "MAKE-INSTANCE"
265     "MAKE-METHOD-LAMBDA"
266     "MAP-DEPENDENTS"
267 gerd 1.25 "METAOBJECT"
268 gerd 1.23 "METHOD-FUNCTION"
269     "METHOD-GENERIC-FUNCTION"
270     "METHOD-LAMBDA-LIST"
271     "METHOD-QUALIFIERS"
272     "METHOD-SPECIALIZERS"
273     "READER-METHOD-CLASS"
274     "REMOVE-DEPENDENT"
275     "REMOVE-DIRECT-METHOD"
276     "REMOVE-DIRECT-SUBCLASS"
277     "REMOVE-METHOD"
278     "SET-FUNCALLABLE-INSTANCE-FUNCTION"
279     "SLOT-BOUNDP-USING-CLASS"
280 gerd 1.24 "SLOT-DEFINITION"
281 gerd 1.23 "SLOT-DEFINITION-ALLOCATION"
282     "SLOT-DEFINITION-INITARGS"
283     "SLOT-DEFINITION-INITFORM"
284     "SLOT-DEFINITION-INITFUNCTION"
285     "SLOT-DEFINITION-LOCATION"
286     "SLOT-DEFINITION-NAME"
287     "SLOT-DEFINITION-READERS"
288     "SLOT-DEFINITION-TYPE"
289     "SLOT-DEFINITION-WRITERS"
290     "SLOT-MAKUNBOUND-USING-CLASS"
291     "SLOT-VALUE-USING-CLASS"
292 gerd 1.24 "SPECIALIZER"
293 gerd 1.23 "SPECIALIZER-DIRECT-GENERIC-FUNCTIONS"
294     "SPECIALIZER-DIRECT-METHODS"
295 gerd 1.24 "STANDARD-ACCESSOR-METHOD"
296     "STANDARD-DIRECT-SLOT-DEFINITION"
297     "STANDARD-EFFECTIVE-SLOT-DEFINITION"
298 gerd 1.25 "STANDARD-GENERIC-FUNCTION"
299 gerd 1.23 "STANDARD-INSTANCE-ACCESS"
300 gerd 1.25 "STANDARD-METHOD"
301 gerd 1.24 "STANDARD-READER-METHOD"
302     "STANDARD-SLOT-DEFINITION"
303     "STANDARD-WRITER-METHOD"
304 gerd 1.23 "UPDATE-DEPENDENT"
305     "VALIDATE-SUPERCLASS"
306     "WRITER-METHOD-CLASS"))

  ViewVC Help
Powered by ViewVC 1.1.5