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

Diff of /src/pcl/pkg.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.7 by ram, Mon Jun 1 18:38:49 1992 UTC revision 1.8 by ram, Sat Aug 1 15:29:41 1992 UTC
# Line 29  Line 29 
29    
30  (export '(define-walker-template  (export '(define-walker-template
31            walk-form            walk-form
32              walk-form-expand-macros-p
33            nested-walk-form            nested-walk-form
34            variable-lexical-p            variable-lexical-p
35            variable-special-p            variable-special-p
# Line 72  Line 73 
73    
74  #+Lucid  #+Lucid
75  (import '(#-LCL3.0 system:arglist #+LCL3.0 lcl:arglist  (import '(#-LCL3.0 system:arglist #+LCL3.0 lcl:arglist
76            system:structurep system:structure-type system:structure-length)            system:structurep system:structure-type system:structure-length
77              #-*lisp-hardware lucid::boolean
78              #+*lisp-hardware *lisp:boolean)
79          *the-pcl-package*)          *the-pcl-package*)
80    
81    
82  #+lucid  #+lucid
83  (#-LCL3.0 progn #+LCL3.0 lcl:handler-bind  (#-LCL3.0 progn #+LCL3.0 lcl:handler-bind
84      #+LCL3.0 ((lcl:warning #'(lambda (condition)      #+LCL3.0 ((lcl:warning #'(lambda (condition)
# Line 150  Line 154 
154  #+cmu (shadow 'lisp:dotimes)  #+cmu (shadow 'lisp:dotimes)
155    
156  #+cmu  #+cmu
157  (import '(kernel:funcallable-instance-p ext:structurep)  (import '(kernel:funcallable-instance-p ext:structurep c::boolean)
158          *the-pcl-package*)          *the-pcl-package*)
159    
160    #+CMU
161    (eval-when (compile)
162      (setq c:*suppress-values-declaration* T))
163    
164    #-(or cmu lucid)
165    (deftype boolean () '(member t nil))
166    
167    
168    
169  (shadow 'documentation)  (shadow 'documentation)
# Line 175  Line 187 
187                      defgeneric                      defgeneric
188                      define-method-combination                      define-method-combination
189                      defmethod                      defmethod
190                        describe-object
191                      ensure-generic-function                      ensure-generic-function
192                      find-class                      find-class
193                      find-method                      find-method
# Line 226  Line 239 
239  (mapc 'export (list *exports*) (list *the-pcl-package*))  (mapc 'export (list *exports*) (list *the-pcl-package*))
240    
241    
242    (eval-when (compile load eval)
243    
244    (defvar *class-exports*
245            '(standard-instance
246              funcallable-standard-instance
247              generic-function
248              standard-generic-function
249              method
250              standard-method
251              standard-accessor-method
252              standard-reader-method
253              standard-writer-method
254              method-combination
255              slot-definition
256              direct-slot-definition
257              effective-slot-definition
258              standard-slot-definition
259              standard-direct-slot-definition
260              standard-effective-slot-definition
261              specializer
262              eql-specializer
263              built-in-class
264              forward-referenced-class
265              standard-class
266              funcallable-standard-class))
267    
268    (defvar *chapter-6-exports*
269            '(add-dependent
270              add-direct-method
271              add-direct-subclass
272              add-method
273              allocate-instance
274              class-default-initargs
275              class-direct-default-initargs
276              class-direct-slots
277              class-direct-subclasses
278              class-direct-superclasses
279              class-finalized-p
280              class-precedence-list
281              class-prototype
282              class-slots
283              compute-applicable-methods
284              compute-applicable-methods-using-classes
285              compute-class-precedence-list
286              compute-discriminating-function
287              compute-effective-method
288              compute-effective-slot-definition
289              compute-slots
290              direct-slot-definition-class
291              effective-slot-definition-class
292              ensure-class
293              ensure-class-using-class
294              ensure-generic-function
295              ensure-generic-function-using-class
296              eql-specializer-instance
297              extract-lambda-list
298              extract-specializer-names
299              finalize-inheritance
300              find-method-combination
301              funcallable-standard-instance-access
302              generic-function-argument-precedence-order
303              generic-function-declarations
304              generic-function-lambda-list
305              generic-function-method-class
306              generic-function-method-combination
307              generic-function-methods
308              generic-function-name
309              intern-eql-specializer
310              make-instance
311              make-method-lambda
312              map-dependents
313              method-function
314              method-generic-function
315              method-lambda-list
316              method-specializers
317              method-qualifiers
318              accessor-method-slot-definition
319              reader-method-class
320              remove-dependent
321              remove-direct-method
322              remove-direct-subclass
323              remove-method
324              set-funcallable-instance-function
325              slot-boundp-using-class
326              slot-definition-allocation
327              slot-definition-initargs
328              slot-definition-initform
329              slot-definition-initfunction
330              slot-definition-location
331              slot-definition-name
332              slot-definition-readers
333              slot-definition-writers
334              slot-definition-type
335              slot-exists-p-using-class
336              slot-makunbound-using-class
337              slot-value-using-class
338              specializer-direct-generic-function
339              specializer-direct-methods
340              standard-instance-access
341              update-dependent
342              validate-superclass
343              writer-method-class
344              ))
345    
346  ;(defvar *chapter-3-exports* '(  );eval-when
347  ;                         get-setf-function  
348  ;                         get-setf-function-name  #-(or KCL IBCL)
349  ;  (export *class-exports* *the-pcl-package*)
350  ;                         class-prototype  
351  ;                         class  #+(or KCL IBCL)
352  ;                         object  (mapc 'export (list *class-exports*) (list *the-pcl-package*))
353  ;  
354  ;;                        essential-class  #-(or KCL IBCL)
355  ;  (export *chapter-6-exports* *the-pcl-package*)
356  ;                         class-name  
357  ;                         class-precedence-list  #+(or KCL IBCL)
358  ;                         class-local-supers  (mapc 'export (list *chapter-6-exports*) (list *the-pcl-package*))
 ;                         class-local-slots  
 ;                         class-direct-subclasses  
 ;                         class-direct-methods  
 ;                         class-slots  
 ;  
 ;  
 ;                         method-arglist  
 ;                         method-argument-specifiers  
 ;                         method-function  
 ;  
 ;                         method-equal  
 ;  
 ;                         slotd-name  
 ;                         slot-missing  
 ;  
 ;;                        define-meta-class  
 ;;                        %allocate-instance  
 ;;                        %instance-ref  
 ;;                        %instancep  
 ;;                        %instance-meta-class  
 ;  
 ;                         allocate-instance  
 ;                         optimize-slot-value  
 ;                         optimize-setf-of-slot-value  
 ;                         add-named-class  
 ;                         class-for-redefinition  
 ;                         add-class  
 ;                         supers-changed  
 ;                         slots-changed  
 ;                         validate-superclass  
 ;                         make-slotd  
 ;                         compute-class-precedence-list  
 ;                         walk-method-body  
 ;                         walk-method-body-form  
 ;                         add-named-method  
 ;                         remove-named-method  
 ;  
 ;  
 ;                         ))  
359    
360  (defvar *slot-accessor-name-package*  (defvar *slot-accessor-name-package*
361    (or (find-package :slot-accessor-name)    (or (find-package :slot-accessor-name)
362        (make-package :slot-accessor-name        (make-package :slot-accessor-name
363                      :use '()                      :use '()
364                      :nicknames '(:s-a-n))))                      :nicknames '(:s-a-n))))
365    

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8

  ViewVC Help
Powered by ViewVC 1.1.5