anchor.diff:  ;;; FIXME: improve these conditions!
   
   (define-condition too-few-arguments
  -    (program-error cleavir-i18n:condition)
  +    (program-error acclimation:condition)
     ())
   
   (define-condition too-many-arguments
  -    (program-error cleavir-i18n:condition)
  +    (program-error acclimation:condition)
     ())
   
   (define-condition odd-number-of-keyword-arguments
  -    (program-error cleavir-i18n:condition)
  +    (program-error acclimation:condition)
     ())
   
   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  
positive.code: ;;; where var and supplied-p-parameter are symbols that are not names
  ;;; of constants.
  (define-condition malformed-ordinary-optional
      (program-error code-condition cleavir-i18n:condition)
    ())
  
  ;;; This condition is used to indicate that there is a malformed item
  
negative.code: ;;; keywords in fact is something else, such as a constant or some
  ;;; illegal atomic object.
  (define-condition malformed-lambda-list-pattern
      (program-error code-condition acclimation:condition)
    ())
  
  ;;; This condition is used to indicate that in a (non destructuring)
  ;;; lambda list, the required parameter must be a variable
  (define-condition required-must-be-variable
      (program-error code-condition acclimation:condition)
    ())
  
  (define-condition suspect-lambda-list-keyword
      (style-warning code-condition acclimation:condition)
    ((%keyword :initarg :keyword :reader lambda-list-keyword)))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  