(defmethod raw-instance-allocator ((class funcallable-standard-class))
'allocate-funcallable-instance)
(defmethod raw-instance-allocator ((class funcallable-standard-class))
'allocate-funcallable-instance)
-(defmethod validate-superclass ((fsc funcallable-standard-class)
- (new-super std-class))
- (let ((new-super-meta-class (class-of new-super)))
- (or (eq new-super-meta-class *the-class-std-class*)
- (eq (class-of fsc) new-super-meta-class))))
-
(declare (ignore initargs))
(unless (class-finalized-p class) (finalize-inheritance class))
(allocate-funcallable-instance (class-wrapper class)))
(defmethod make-reader-method-function ((class funcallable-standard-class)
(declare (ignore initargs))
(unless (class-finalized-p class) (finalize-inheritance class))
(allocate-funcallable-instance (class-wrapper class)))
(defmethod make-reader-method-function ((class funcallable-standard-class)
(make-std-reader-method-function (class-name class) slot-name))
(defmethod make-writer-method-function ((class funcallable-standard-class)
(make-std-reader-method-function (class-name class) slot-name))
(defmethod make-writer-method-function ((class funcallable-standard-class)
(make-std-writer-method-function (class-name class) slot-name))
;;;; See the comment about reader-function--std and writer-function--sdt.
(make-std-writer-method-function (class-name class) slot-name))
;;;; See the comment about reader-function--std and writer-function--sdt.