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