anchor.diff:           (progn ,@body)
            (cond-let ,var ,@clauses)))))
   
  -(defmacro econd-let (symbol &rest clauses)
  +(defmacro econd-let (symbol &body clauses)
     "Like `cond-let' for `econd'."
     `(cond-let ,symbol
        ,@clauses
  
positive.code:                (format-econd-tests s tests))))
    (:documentation "A failed ECOND form."))
  
  (defmacro econd (&rest clauses)
    "Like `cond', but signal an error of type `econd-failure' if no
  clause succeeds."
    (let ((tests (mapcar #'car 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
  