anchor.diff:                    (handler-bind ((error
                                     (lambda (c)
                                       (setq ,errp t)
  -                                    (format *output* "~&   each in ~A threw ~A~&"
  +                                    (format *output*
  +                                            "~&  each in ~A threw \"~A\"~&"
                                               current-test
                                               c)
                                       (if *handle-errors*
  
positive.code:                     (handler-bind ((error
                                      (lambda (c)
                                        (pushnew current-test failing-tests)
                                        (format *output* "~&   ~A's toplevel threw ~A~&"
                                                current-test
                                                c)
                                        (if *handle-errors*
  
negative.code:                                         ',(caar forms)
                                          (list ,@args))))
                                (t
                                 (format *output* "~&    Erroring Form ~A"
                                         ',(car forms)))))))))
                (each ,@(cdr forms)))))))
  
  