fink/test-class.lisp

42 lines
1.1 KiB
Common Lisp
Raw Normal View History

2008-05-21 18:46:32 +00:00
(defclass class_a ()
((a
2008-05-21 19:18:47 +00:00
:initarg :a
2008-05-21 18:46:32 +00:00
:initform (make-array 10 :initial-element 0)
:accessor a)))
(defclass class_b (class_a)
((b
:initform (make-array 10 :initial-element 0)
:initarg b
:accessor b)))
(defgeneric dothing (class data)
(:method-combination progn :most-specific-last))
(defmethod dothing progn ((class class_a) data)
(loop for i from 0 to 9 do (setf (aref (a class) i) (+ (aref (a class) i) data))))
(defmethod dothing progn ((class class_b) data)
(loop for i from 0 to 9 do (setf (aref (b class) i) (+ (aref (b class) i) (aref (a class) i) data))))
(defgeneric doother4 (class data)
);(:method-combination progn :most-specific-last))
(defmethod doother4 ((class class_a) data)
(format t "class_a~%")
(loop for i from 0 to 4 do (setf (aref data i) "a"))
data)
(defmethod doother4 :after ((class class_b) data)
(format t "class_b~%")
(loop for i from 0 to 2 do (setf (aref data i) "b"))
data)
(defmethod (setf a) (new-number (class class_a))
(setf (aref (a class) 0) new-number))
;(defmethod (setf a) (new-number index (class class_a))
; (setf (aref (a class) index) new-number))