anchor.diff:      "assert-error checks that the right error is thrown"
     (assert-equal 3 (my-divide 6 2))
     (assert-error 'my-div-by-zero-error (my-divide 6 0))
  -  (assert-error ____ (my-divide 6 "zero")))
  +  (assert-error 'my-non-number-args-error (my-divide 6 "zero")))
   
   
   (define-test test-handle-errors
       "the handler case is like a case statement which can capture errors
        and warnings, and execute appropriate forms in those conditions."
  -  (assert-equal ___
  +  (assert-equal 3
                   (handler-case (my-divide 6 2)
                     (my-div-by-zero-error (condition) :zero-div-error)
                     (my-non-number-args-error (condition) :bad-args))
  -  (assert-equal ___
  +  (assert-equal :zero-div-error
                   (handler-case (my-divide 6 0)
                     (my-div-by-zero-error (condition) :zero-div-error)
                     (my-non-number-args-error (condition) :bad-args)))
  -  (assert-equal ___
  +  (assert-equal :bad-args
                   (handler-case (my-divide 6 "woops")
                     (my-div-by-zero-error (condition) :zero-div-error)
                     (my-non-number-args-error (condition) :bad-args)))))
  
positive.code: 
  (define-test test-conditions-derive-from-types
      "conditions inherit from base types"
    (true-or-false? ___ (typep (make-condition 'minimal-error-cond)
                               'minimal-error-cond))
  
    (true-or-false? ___ (typep (make-condition 'minimal-error-cond)
                               'error))
  
    (true-or-false? ___ (typep (make-condition 'minimal-error-cond)
                               'warning))
  
    (true-or-false? ___ (typep (make-condition 'minimal-warning-cond)
                               'minimal-warning-cond))
  
    (true-or-false? ___ (typep (make-condition 'minimal-warning-cond)
                               'error))
  
    (true-or-false? ___ (typep (make-condition 'minimal-warning-cond)
                               'warning)))
  
  
  
negative.code: 
  
  (define-test test-errors-have-slots
      (assert-equal :timestamp-logline-type
                    (handler-case (get-logline-type "TIMESTAMP y13m01d03")
                      (logline-parse-error (condition) (list (reason condition) (original-line condition)))))
      (assert-equal :http-logline-type
                    (handler-case (get-logline-type "HTTP access 128.0.0.100")
                      (logline-parse-error (condition) (list (reason condition) (original-line condition)))))
      (assert-equal '(:unknown-token-reason "bogus logline")
                    (handler-case (get-logline-type "bogus logline")
                      (logline-parse-error (condition) (list (reason condition) (original-line condition)))))
      (assert-equal '(:bad-type-reason 5555)
                    (handler-case (get-logline-type 5555)
                      (logline-parse-error (condition) (list (reason condition) (original-line condition))))))
  