anchor.diff:      :reader fail)
      (exerr
       :initarg :exerr
  -    :reader 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."))
  
positive.code:                    :name name
                     :pass *pass*
                     :fail *fail*
                     :exerr condition))))))
        (run-code code))
      ;; Return the result count
  
negative.code: 
  (defun run-test-thunk (name code)
    (let ((*pass* 0)
          (*fail* ())
          (start (get-internal-run-time)))
      (handler-bind
          ((error
            (lambda (condition)
  