anchor.diff:             ~s"
             (code c)))
   
  -(defmethod cleavir-i18n:report-condition
  -    ((c malformed-destructuring-key) stream (language cleavir-i18n:english))
  +(defmethod acclimation:report-condition
  +    ((c malformed-destructuring-key) stream (language acclimation:english))
     (format stream
   	  "In this type of lambda list, an item following the &key~@
              lambda-list keyword must have one of the following forms:~@
  
positive.code: 	  (lambda-list-keyword2 c)
  	  (code c)))
  
  (defmethod cleavir-i18n:report-condition
      ((c both-rest-and-body-occur-in-lambda-list) stream (language cleavir-i18n:english))
    (format stream
  	  "Both &rest and &body may not occur in a lambda list.
             But they do in this lambda list:~@
             ~s"
  	  (code c)))
  
  (defmethod cleavir-i18n:report-condition
      ((c rest/body-must-be-followed-by-variable) stream (language cleavir-i18n:english))
    (format stream
  	  "The lambda list keyword &rest or &body must be followed by a variable.~@
             But this is not the case in this lambda list:~@
             ~s"
  	  (code c)))
  
  (defmethod cleavir-i18n:report-condition
      ((c atomic-lambda-list-tail-must-be-variable) stream (language cleavir-i18n:english))
    (format stream
  	  "The atomic tail of a lambda list must be a variable.~@
             But this is not the case in this lambda list:~@
             ~s"
  	  (code c)))
  
  (defmethod cleavir-i18n:report-condition
      ((c whole-must-be-followed-by-variable) stream (language cleavir-i18n:english))
    (format stream
  	  "The lambda list keyword &whole must be followed by a variable.~@
             But this is not the case in this lambda list:~@
             ~s"
  	  (code c)))
  
  (defmethod cleavir-i18n:report-condition
      ((c whole-must-appear-first) stream (language cleavir-i18n:english))
    (format stream
  	  "If &whole is used in a lambda list, it must appear first.~@
             But this is not the case in this lambda list:~@
             ~s"
  	  (code c)))
  
  (defmethod cleavir-i18n:report-condition
      ((c whole-must-be-followed-by-variable) stream (language cleavir-i18n:english))
    (format stream
  	  "The lambda list keyword &whole must be followed by a variable.~@
             But this is not the case in this lambda list:~@
             ~s"
  	  (code c)))
  
  (defmethod cleavir-i18n:report-condition
      ((c environment-must-be-followed-by-variable) stream (language cleavir-i18n:english))
    (format stream
  	  "The lambda list keyword &environment must be followed by a variable.~@
             But this is not the case in this lambda list:~@
             ~s"
  	  (code c)))
  
  (defmethod cleavir-i18n:report-condition
      ((c environment-can-appear-at-most-once) stream (language cleavir-i18n:english))
    (format stream
  	  "The lambda list keyword &environment can occur at most once in a lambda list.~@
             But it occurs several times in this lambda list:~@
             ~s"
  	  (code c)))
  
  (defmethod cleavir-i18n:report-condition
      ((c malformed-specialized-required) stream (language cleavir-i18n:english))
    (format stream
  	  "In this type of lambda list, a required parameter must~@
             have one of the following forms:~@
  
negative.code: ;;;
  ;;;  Conditions for forms with BODY.
  
  (defmethod acclimation:report-condition
      ((c ordinary-body-must-be-proper-list) stream (language acclimation:english))
    (format stream
  	  "The BODY of a form such as LET, LET*, FLET, LABELS,~@
             or LOCALLY, must be a proper list.
  