anchor.diff:                                          ',(caar forms)
                                           (list ,@args))))
                                 (t
  -                               (format *output* "~&  Erroring Form ~A"
  +                               (format *output* "~&    Erroring Form ~A"
                                          ',(car forms)))))))))
                 (each ,@(cdr forms)))))))
   
  
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:                   (handler-bind ((error
                                    (lambda (c)
                                      (setq ,errp t)
                                      (format *output*
                                              "~&  each in ~A threw \"~A\"~&"
                                              current-test
                                              c)
                                      (if *handle-errors*
  