anchor.diff:  	  (name-package (name c))
   	  (type-error-datum c)))
   
  -(defmethod report-condition ((c must-be-list)
  -			     stream
  -			     (language (eql 'en-us)))
  +(defmethod cleavir-i18n:report-condition ((c must-be-list)
  +					  stream
  +					  (language cleavir-i18n:english))
     (format stream
   	  "In ~a (in the ~a package):~@
              A list (a cons or nil) was required,~@
  
positive.code: 	  (name c)
  	  (name-package (name c))))
  	  
  (defmethod report-condition ((c at-least-one-argument-required)
  			     stream
  			     (language (eql 'en-us)))
    (format stream
  	  "In ~a (in the ~a package):~@
             At least one argument is required,~@
             but none was given."
  	  (name c)
  	  (name-package (name c))))
  	  
  (defmethod report-condition ((c lists-must-have-the-same-length)
  			     stream
  			     (language (eql 'en-us)))
    (format stream
  	  "In ~a (in the ~a package):~@
             The two lists passed as arguments must~@
  
negative.code: 	  (name-package (name c))
  	  (type-error-datum c)))
  
  (defmethod cleavir-i18n:report-condition ((c must-be-proper-or-circular-list)
  					  stream
  					  (language cleavir-i18n:english))
    (format stream
  	  "In ~a (in the ~a package):~@
             A proper or circular list was required,~@
  