anchor.diff:  	  (code c)))
   
   (defmethod cleavir-i18n:report-condition
  -    ((c block-tag-must-be-symbol) stream (language (eql 'en-us)))
  +    ((c block-tag-must-be-symbol) stream (language cleavir-i18n:english))
     (format stream
   	  "A block tag must be a symbol.~@
              But the following was found instead:~@
  
positive.code: 
  (defmethod cleavir-i18n:report-condition ((c unknown-class-option)
  			     stream
  			     (langauge (eql 'en-us)))
    (format stream
  	  "A class option is either ~@
             :default-initargs, :documentation, or :metaclass, but~@
  
negative.code: 
  (defmethod cleavir-i18n:report-condition ((c multiple-type-options-not-permitted)
  			     stream
  			     (language cleavir-i18n:english))
    (format stream
  	  "A slot can not have multiple :type options.~@
             ~s was found."
  