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: ;;; where var and supplied-p-parameter are symbols that are not names
  ;;; of constants, and pattern is any destructuring pattern.
  (define-condition malformed-destructuring-optional
      (program-error code-condition cleavir-i18n:condition)
    ())
  
  (define-condition malformed-ordinary-key
      (program-error code-condition cleavir-i18n:condition)
    ())
  
  (define-condition malformed-defgeneric-key
      (program-error code-condition cleavir-i18n:condition)
    ())
  
  (define-condition malformed-destructuring-key
      (program-error code-condition cleavir-i18n:condition)
    ())
  
  (define-condition malformed-aux
      (program-error code-condition cleavir-i18n:condition)
    ())
  
  ;;; This condition is used to indicate that a destructuring tree
  ;;; contains some item other than a CONS cell or a symbol which is not
  ;;; also the name of a constant. 
  (define-condition malformed-destructuring-tree
      (program-error code-condition cleavir-i18n:condition)
    ())
  
  ;;; This condition is used to indicate that something that ought
  
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)
    ())
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  