anchor.diff:  ;; to satisfy the test-countdowner tests.
   ;; you may be interested in the 'decf function.
   (defmethod get-value ((object countdowner))
  -  :WRITE-ME)
  +  (incf (slot-value object 'value) -1)
  +	(if (<= (slot-value object 'value) 0)
  +		"bang"
  +		(slot-value object 'value)))
   
   
   (define-test test-countdowner
  
positive.code: (define-test test-multiple-inheritance
      (let ((my-colored-circle (make-instance 'colored-circle))
            (my-circled-color (make-instance 'circled-color)))
        (assert-equal ____ (get-kind my-colored-circle))
        (assert-equal ____ (get-kind my-circled-color))))
  
  
  (defvar *last-kind-accessor* nil)
  
negative.code:           (my-circle (make-instance 'circle))
            (my-color (make-instance 'color)))
        (get-kind my-shape)
        (assert-equal :shape *last-kind-accessor*)
        (get-kind my-circle)
        (assert-equal :circle *last-kind-accessor*)
        (get-kind my-color)
        (assert-equal :color *last-kind-accessor*)
        (get-kind my-colored-circle)
        (assert-equal :color *last-kind-accessor*)
        (get-kind my-circled-color)
        (assert-equal :circle *last-kind-accessor*)))
  
  
  ;; Todo: consider adding :before and :after method control instructions.
  