anchor.diff:  ;;; 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)
  +    (program-error code-condition acclimation:condition)
     ())
   
   (define-condition malformed-ordinary-key
  -    (program-error code-condition cleavir-i18n:condition)
  +    (program-error code-condition acclimation:condition)
     ())
   
   (define-condition malformed-defgeneric-key
  -    (program-error code-condition cleavir-i18n:condition)
  +    (program-error code-condition acclimation:condition)
     ())
   
   (define-condition malformed-destructuring-key
  -    (program-error code-condition cleavir-i18n:condition)
  +    (program-error code-condition acclimation:condition)
     ())
   
   (define-condition malformed-aux
  -    (program-error code-condition cleavir-i18n:condition)
  +    (program-error code-condition acclimation: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)
  +    (program-error code-condition acclimation:condition)
     ())
   
   ;;; This condition is used to indicate that something that ought
  
positive.code: ;;;  Lambda list conditions.
  
  (define-condition lambda-list-must-be-list
      (program-error code-condition cleavir-i18n:condition)
    ())
  
  (define-condition lambda-list-must-not-be-circular
      (program-error code-condition cleavir-i18n:condition)
    ())
  
  (define-condition lambda-list-must-be-proper-list
      (program-error code-condition cleavir-i18n:condition)
    ())
  
  (define-condition lambda-list-keyword-not-allowed
      (program-error code-condition cleavir-i18n:condition)
    ((%keyword :initarg :keyword :reader lambda-list-keyword)))
  
  (define-condition lambda-list-keyword-not-allowed-in-dotted-lambda-list
      (program-error code-condition cleavir-i18n:condition)
    ((%keyword :initarg :keyword :reader lambda-list-keyword)))
  
  (define-condition multiple-occurrences-of-lambda-list-keyword
      (program-error code-condition cleavir-i18n:condition)
    ((%keyword :initarg :keyword :reader lambda-list-keyword)))
  
  (define-condition incorrect-keyword-order
      (program-error code-condition cleavir-i18n:condition)
    ((%keyword1 :initarg :keyword1 :reader lambda-list-keyword1)
     (%keyword2 :initarg :keyword2 :reader lambda-list-keyword2)))
  
  (define-condition both-rest-and-body-occur-in-lambda-list
      (program-error code-condition cleavir-i18n:condition)
    ())
  
  (define-condition rest/body-must-be-followed-by-variable
      (program-error code-condition cleavir-i18n:condition)
    ())
  
  (define-condition atomic-lambda-list-tail-must-be-variable
      (program-error code-condition cleavir-i18n:condition)
    ())
  
  (define-condition whole-must-appear-first
      (program-error code-condition cleavir-i18n:condition)
    ())
  
  (define-condition whole-must-be-followed-by-variable
      (program-error code-condition cleavir-i18n:condition)
    ())
  
  (define-condition environment-must-be-followed-by-variable
      (program-error code-condition cleavir-i18n:condition)
    ())
  
  (define-condition environment-can-appear-at-most-once
      (program-error code-condition cleavir-i18n:condition)
    ())
  
  (define-condition malformed-specialized-required
      (program-error code-condition cleavir-i18n:condition)
    ())
  
  ;;; This condition is used to indicate that there is a malformed item
  
negative.code: ;;;  Conditions for forms with BODY.
  
  (define-condition ordinary-body-must-be-proper-list
      (style-warning acclimation:condition)
    ((%body :initarg :body :reader body)))
  
  (define-condition function-body-must-be-proper-list
      (style-warning acclimation:condition)
    ((%body :initarg :body :reader body)))
  