anchor.diff:  	  (type-error-datum c)))
   
   (defmethod cleavir-i18n:report-condition
  -    ((c both-test-and-test-not-given) stream (language (eql 'en-us)))
  +    ((c both-test-and-test-not-given) stream (language cleavir-i18n:english))
     (format stream
   	  "Both keyword arguments :test and :test-not were given."))
   
   (defmethod cleavir-i18n:report-condition
  -    ((c at-least-one-list-required) stream (language (eql 'en-us)))
  +    ((c at-least-one-list-required) stream (language cleavir-i18n:english))
     (format stream
   	  "At least one list argument is required,~@
              but none was given."))
   	  
   (defmethod cleavir-i18n:report-condition
  -    ((c at-least-one-argument-required) stream (language (eql 'en-us)))
  +    ((c at-least-one-argument-required) stream (language cleavir-i18n:english))
     (format stream
   	  "At least one argument is required,~@
              but none was given."))
   	  
   (defmethod cleavir-i18n:report-condition
  -    ((c lists-must-have-the-same-length) stream (language (eql 'en-us)))
  +    ((c lists-must-have-the-same-length) stream (language cleavir-i18n:english))
     (format stream
   	  "The two lists passed as arguments must~@
              have the same length, but the following~@
  
positive.code:           (code c)))
  
  (defmethod cleavir-i18n:report-condition
      ((c malformed-aux) stream (language (eql 'en-us)))
    (format stream
  	  "In a lambda list, an item following the &aux~@
             lambda-list keyword must have one of the following forms:~@
  
negative.code: 	  (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:~@
  