anchor.diff:  ;;;  Conditions for forms with BODY.
   
   (define-condition ordinary-body-must-be-proper-list
  -    (style-warning cleavir-i18n:condition)
  +    (style-warning acclimation:condition)
     ((%body :initarg :body :reader body)))
   
   (define-condition function-body-must-be-proper-list
  -    (style-warning cleavir-i18n:condition)
  +    (style-warning acclimation:condition)
     ((%body :initarg :body :reader body)))
  
positive.code:    (%signaler :initarg :signaler :reader signaler)))
  
  (define-condition form-must-be-proper-list
      (program-error cleavir-i18n:condition)
    ((%form :initarg :form :reader form)))
  
  ;;; A max-argcount of NIL means no upper bound.
  (define-condition invalid-number-of-arguments 
      (program-error cleavir-i18n:condition)
    ((%form :initarg :form :reader form)
     (%min-argcount :initarg :min-argcount :reader min-argcount)
     (%max-argcount :initarg :max-argcount :reader max-argcount)))
  
negative.code: ;;; FIXME: improve these conditions!
  
  (define-condition too-few-arguments
      (program-error acclimation:condition)
    ())
  
  (define-condition too-many-arguments
      (program-error acclimation:condition)
    ())
  
  (define-condition odd-number-of-keyword-arguments
      (program-error acclimation:condition)
    ())
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  