anchor.diff:            (my-circle (make-instance 'circle))
             (my-color (make-instance 'color)))
         (get-kind my-shape)
  -      (assert-equal ____ *last-kind-accessor*)
  +      (assert-equal :shape *last-kind-accessor*)
         (get-kind my-circle)
  -      (assert-equal ____ *last-kind-accessor*)
  +      (assert-equal :circle *last-kind-accessor*)
         (get-kind my-color)
  -      (assert-equal ____ *last-kind-accessor*)
  +      (assert-equal :color *last-kind-accessor*)
         (get-kind my-colored-circle)
  -      (assert-equal ____ *last-kind-accessor*)
  +      (assert-equal :color *last-kind-accessor*)
         (get-kind my-circled-color)
  -      (assert-equal ____ *last-kind-accessor*)))
  +      (assert-equal :circle *last-kind-accessor*)))
   
   
   ;; Todo: consider adding :before and :after method control instructions.
  
positive.code: ;; to satisfy the test-countdowner tests.
  ;; you may be interested in the 'decf function.
  (defmethod get-value ((object countdowner))
    :WRITE-ME)
  
  
  (define-test test-countdowner
  
negative.code:       (setf (slot-value car-1 'speed) 220)
        (setf (slot-value car-2 'color) :blue)
        (setf (slot-value car-2 'speed) 240)
        (assert-equal :red (slot-value car-1 'color))
        (assert-equal 240 (slot-value car-2 'speed))))
  
  ;; CLOS provides functionality for creating getters / setters
  ;; for defined objects
  