anchor.diff:                      ((error (lambda (c)
                                 (when *handle-errors*
                                   (return-from handler
  -                                  (format t "~&   test-and threw ~A~&" c))))))
  +                                  (format t "~&   test-and in ~A threw ~A~&"
  +                                          current-test
  +                                          c))))))
                     (unwind-protect
                          ,(if (and (listp (car forms))
                                    (symbol-function (caar forms))
  
positive.code:                                 (pushnew current-test failing-tests)
                                  (when *handle-errors*
                                    (return-from ,name 
                                      (format t "~&   toplevel threw ~A~&" c))))))
                  (,',obody ,@body))))))))
  
  (def-deftest deftest progn
  
negative.code:                                    ,f (funcall ',(caar forms) ,@args))
                              `(setq ,f ,(car forms)))
                      (when  (not ,f)
                        (progn (format t "~&  In ~A" current-test)
                               (format t "~&  Failing Form ~A" ',(car forms))
                               ,(when (and args
                                           (listp (car forms))
                                           (symbol-function (caar forms))
                                           (not (special-operator-p (caar forms)))
                                           (not (macro-function (caar forms))))
                                      `(format t "~&               (~A~{ ~A~^~})"
                                               ',(caar forms)
                                               (list ,@args)))
                               (pushnew current-test failing-tests))))))
  