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

Contents of /src/pcl/pkg.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.22.2.4 - (hide annotations)
Sat Mar 22 12:28:19 2003 UTC (11 years ago) by gerd
Branch: cold-pcl
Changes since 1.22.2.3: +82 -100 lines
* pkg.lisp: Some fixes of symbol names etc.

* braid.lisp (no-applicable-method-error, no-next-method-error)
(no-primary-method-error): Added -error suffix for ANSI.

* env.lisp (describe-object): Don't print slots for condition
classes.

* pkg.lisp ("PCL"): Fix a typo in an export.

* env.lisp (make-load-form): New method for classes.

* macros.lisp (legal-class-name-p): Don't check for nil.  DEFCLASS
with nil as class name fails anyway because it tries to redefine
standard type NIL.

* braid.lisp (slot-initargs-from-structure-slotd): Make it a
local function in ensure-non-standard-class.
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.22.2.4 "$Header: /tiger/var/lib/cvsroots/cmucl/src/pcl/pkg.lisp,v 1.22.2.4 2003/03/22 12:28:19 gerd 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 gerd 1.22.2.2 (defpackage "PCL"
46     (:use :common-lisp :walker)
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.22.2.1
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     "FUNCALLABLE-STANDARD-OBJECT")
122 pw 1.11
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 gerd 1.22.2.4 "COMPUTE-DEFAULT-INITARGS"
143 pw 1.11 "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 gerd 1.22.2.4 "EQL-SPECIALIZER-OBJECT"
153 pw 1.11 "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 gerd 1.22.2.4 "SPECIALIZER-DIRECT-GENERIC-FUNCTIONS"
194 pw 1.11 "SPECIALIZER-DIRECT-METHODS"
195     "STANDARD-INSTANCE-ACCESS"
196     "UPDATE-DEPENDENT"
197     "VALIDATE-SUPERCLASS"
198 gerd 1.22.2.4 "WRITER-METHOD-CLASS"))
199 ram 1.3
200 gerd 1.22.2.4 ;;;
201 pw 1.11 ;;; 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 gerd 1.22.2.4 (: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-CLASS"
231     "EFFECTIVE-SLOT-DEFINITION-CLASS"
232     "ENSURE-CLASS"
233     "ENSURE-CLASS-USING-CLASS"
234     "ENSURE-GENERIC-FUNCTION"
235     "ENSURE-GENERIC-FUNCTION-USING-CLASS"
236     "EQL-SPECIALIZER-OBJECT"
237     "EXTRACT-LAMBDA-LIST"
238     "EXTRACT-SPECIALIZER-NAMES"
239     "FINALIZE-INHERITANCE"
240     "FIND-METHOD-COMBINATION"
241     "FUNCALLABLE-STANDARD-INSTANCE-ACCESS"
242     "GENERIC-FUNCTION-ARGUMENT-PRECEDENCE-ORDER"
243     "GENERIC-FUNCTION-DECLARATIONS"
244     "GENERIC-FUNCTION-LAMBDA-LIST"
245     "GENERIC-FUNCTION-METHOD-CLASS"
246     "GENERIC-FUNCTION-METHOD-COMBINATION"
247     "GENERIC-FUNCTION-METHODS"
248     "GENERIC-FUNCTION-NAME"
249     "INTERN-EQL-SPECIALIZER"
250     "MAKE-INSTANCE"
251     "MAKE-METHOD-LAMBDA"
252     "MAP-DEPENDENTS"
253     "METHOD-FUNCTION"
254     "METHOD-GENERIC-FUNCTION"
255     "METHOD-LAMBDA-LIST"
256     "METHOD-QUALIFIERS"
257     "METHOD-SPECIALIZERS"
258     "READER-METHOD-CLASS"
259     "REMOVE-DEPENDENT"
260     "REMOVE-DIRECT-METHOD"
261     "REMOVE-DIRECT-SUBCLASS"
262     "REMOVE-METHOD"
263     "SET-FUNCALLABLE-INSTANCE-FUNCTION"
264     "SLOT-BOUNDP-USING-CLASS"
265     "SLOT-DEFINITION-ALLOCATION"
266     "SLOT-DEFINITION-INITARGS"
267     "SLOT-DEFINITION-INITFORM"
268     "SLOT-DEFINITION-INITFUNCTION"
269     "SLOT-DEFINITION-LOCATION"
270     "SLOT-DEFINITION-NAME"
271     "SLOT-DEFINITION-READERS"
272     "SLOT-DEFINITION-TYPE"
273     "SLOT-DEFINITION-WRITERS"
274     "SLOT-MAKUNBOUND-USING-CLASS"
275     "SLOT-VALUE-USING-CLASS"
276     "SPECIALIZER-DIRECT-GENERIC-FUNCTIONS"
277     "SPECIALIZER-DIRECT-METHODS"
278     "STANDARD-INSTANCE-ACCESS"
279     "UPDATE-DEPENDENT"
280     "VALIDATE-SUPERCLASS"
281     "WRITER-METHOD-CLASS"))

  ViewVC Help
Powered by ViewVC 1.1.5