                        the-type-field-alist))
                            (error "missing field in condition construction"
                                   type
                                   missing-field))))
                    (lset-difference eq? all-fields fields))
          (loop (cdr type-field-alist))))))

(define &amp;condition (really-make-condition-type '&amp;condition
                                               #f
                                               '()
                     