anchor.diff:                 (format-econd-tests s tests))))
     (:documentation "A failed ECOND form."))
   
  -(defmacro econd (&rest clauses)
  +(defmacro econd (&body clauses)
     "Like `cond', but signal an error of type `econd-failure' if no
   clause succeeds."
     (let ((tests (mapcar #'car clauses)))
  
positive.code:          (progn ,@body)
           (cond-let ,var ,@clauses)))))
  
  (defmacro econd-let (symbol &rest clauses)
    "Like `cond-let' for `econd'."
    `(cond-let ,symbol
       ,@clauses
  
negative.code:                                                `(progn ,@body)))))
                   ,ret))))))
  
  (defmacro bcond (&body clauses)
    "Scheme's extended COND.
  
  This is exactly like COND, except for clauses having the form
  