anchor.diff:               (*pass-count* 0)
                (error-count 0))
           (handler-bind 
  -            ((error #'(lambda (e)
  -                        (let ((*print-escape* nil))
  -                          (setq error-count 1)         
  -                          (format t "~&    ~S: ~W" *test-name* e))
  -                        (if (use-debugger-p e) e (go exit)))))
  +            ((error (lambda (e)
  +                      (let ((*print-escape* nil))
  +                        (setq error-count 1)         
  +                        (format t "~&    ~S: ~W" *test-name* e))
  +                      (if (use-debugger-p e) e (go exit)))))
             (funcall thunk)
             (show-summary *test-name* *test-count* *pass-count*))
           exit
  
positive.code: (defmacro assert-true (form &rest extras)
    (expand-assert :result form form t extras))
  
  
  (defun expand-assert (type form body expected extras &key (test #'eql))
    `(internal-assert ,type ',form
                      #'(lambda () ,body)
                      #'(lambda () ,expected)
                      ,(expand-extras extras)
                      ,test))
  
  
negative.code:     (get-test-thunks ,(if (null names) '(get-tests *package*) `',names))))
  
  (defun get-test-thunks (names &optional (package *package*))
    (mapcar (lambda (name) (get-test-thunk name package))
            names))
  
  (defun get-test-thunk (name package)
  