anchor.diff:                     :name name
                      :pass *pass*
                      :fail *fail*
  +                   :run-time (- (get-internal-run-time) start)
                      :exerr condition))))))
         (run-code code))
       ;; Return the result count
  
positive.code: 
  (defun run-test-thunk (name code)
    (let ((*pass* 0)
          (*fail* ()))
      (handler-bind
          ((error
            (lambda (condition)
  
negative.code:      'test-result
       :name name
       :pass *pass*
       :fail *fail*
       :run-time (- (get-internal-run-time) start))))
  
  ;;; Test results database
  
  