anchor.diff:       'test-result
        :name name
        :pass *pass*
  -     :fail *fail*)))
  +     :fail *fail*
  +     :run-time (- (get-internal-run-time) start))))
   
   ;;; Test results database
   
  
positive.code: 
  (defun run-test-thunk (name code)
    (let ((*pass* 0)
          (*fail* ()))
      (handler-bind
          ((error
            (lambda (condition)
  
negative.code:     :reader fail)
     (exerr
      :initarg :exerr
      :reader exerr)
     (run-time :initarg :run-time
               :reader run-time
               :documentation "run time measured in internal time units"))
    (:default-initargs :exerr nil)
    (:documentation
     "Store the results of the unit test."))
  