anchor.diff:            name pass-count (- test-count pass-count) error-count))
   
   (defun collect-form-values (form values)
  -  (mapcan #'(lambda (form-arg value)
  -              (if (constantp form-arg)
  -                  nil
  +  (mapcan (lambda (form-arg value)
  +            (if (constantp form-arg)
  +                nil
                   (list form-arg value)))
             (cdr form)
             values))
   
  -
   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   ;;; Useful equality predicates for tests
   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   
   ;;; (LOGICALLY-EQUAL x y) => true or false
   ;;;   Return true if x and y both false or both true
  -
   (defun logically-equal (x y)
     (eql (not x) (not y)))
   
   ;;; (SET-EQUAL l1 l2 :test) => true or false
   ;;;   Return true if every element of l1 is an element of l2
   ;;;   and vice versa.
  -
   (defun set-equal (l1 l2 &key (test #'equal))
     (and (listp l1)
          (listp l2)
  
positive.code: (defun expand-extras (extras)
    `#'(lambda ()
         (list ,@(mapcan #'(lambda (form) (list `',form form)) extras))))
      
  
  ;;; RUN-TESTS
  
  
negative.code:                            (car actual))
                (car expected)))
      (:result
       (logically-equal (car actual) (car expected)))))
  
  ;;; RUN-TESTS support
  
  