anchor.diff:  	  (name-package (name c))
   	  (type-error-datum c)))
   
  -(defmethod report-condition ((c must-be-cons)
  -			     stream
  -			     (language (eql 'en-us)))
  +(defmethod cleavir-i18n:report-condition ((c must-be-cons)
  +					  stream
  +					  (language cleavir-i18n:english))
     (format stream
   	  "In ~a (in the ~a package):~@
              A cons cell was required,~@
  
positive.code: ;;;; See the file SICL.text for a description of the project. 
  ;;;; See the file cons-high.text for a description of the module.
  
  (defparameter *language* 'en-us)
  
  (defun name-package (name)
    (let ((real-name (if (symbolp name) name (cadr name))))
      (package-name (symbol-package real-name))))
  
  (defgeneric report-condition (condition stream language))
  
  (defmethod print-object ((c name-mixin) stream)
    (report-condition c stream *language*))
  
  (defmethod report-condition  ((c both-test-and-test-not-given)
  			      stream
  			      (language (eql 'en-us)))
    (format stream
  	  "In ~a (in the ~a package):~@
             Both keyword arguments :test and :test-not were given."
  	  (name c)
  	  (name-package (name c))))
  
  (defmethod report-condition ((c must-be-nonnegative-integer)
  			     stream
  			     (language (eql 'en-us)))
    (format stream
  	  "In ~a (in the ~a package):~@
             A nonnegative integer was required,~@
  
negative.code: 	  (list1 c)
  	  (list2 c)))
  
  (defmethod cleavir-i18n:report-condition ((c setf-c*r-must-be-cons)
  					  stream
  					  (language cleavir-i18n:english))
    (format stream
  	  "In the SETF expander for ~a (in the ~a package),~@
             the ~aargument ~s~@
  