Ignore:
Timestamp:
07/13/12 16:44:19 (9 years ago)
Author:
rschlatte
Message:

Move definition of subclasses of standard-method metaclass to Lisp

  • standard-accessor-method
  • standard-reader-method
  • standard-writer-method
File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/clos.lisp

    r14006 r14007  
    119119(defconstant +the-forward-referenced-class+
    120120  (find-class 'forward-referenced-class))
    121 (defconstant +the-standard-reader-method-class+
    122   (find-class 'standard-reader-method))
    123 (defconstant +the-standard-writer-method-class+
    124   (find-class 'standard-writer-method))
    125121(defconstant +the-standard-generic-function-class+
    126122  (find-class 'standard-generic-function))
     
    201197    (add-subclasses 'generic-function 'standard-generic-function)
    202198    (add-subclasses 'method 'standard-method)
    203     (add-subclasses 'standard-method 'standard-accessor-method)
    204     (add-subclasses 'standard-accessor-method
    205                     '(standard-reader-method standard-writer-method))
    206199    (add-subclasses 'slot-definition
    207200                    '(direct-slot-definition effective-slot-definition
     
    926919   declarations
    927920   forms))
     921
     922(define-primordial-class standard-accessor-method (standard-method)
     923  ((sys::%slot-definition :initarg :slot-definition :initform nil)))
     924
     925(define-primordial-class standard-reader-method (standard-accessor-method)
     926  ())
     927(defconstant +the-standard-reader-method-class+
     928  (find-class 'standard-reader-method))
     929
     930(define-primordial-class standard-writer-method (standard-accessor-method)
     931  ())
     932(defconstant +the-standard-writer-method-class+
     933  (find-class 'standard-writer-method))
     934
    928935
    929936(defvar *extensible-built-in-classes*
Note: See TracChangeset for help on using the changeset viewer.