anchor.diff:  ;;;
   ;;; Compile time conditions. 
   
  -(defmethod report-condition
  +(defmethod cleavir-i18n:report-condition
       ((c form-must-be-proper-list) stream (language (eql 'en-us)))
     (format stream
   	  "A form must be a proper list.~@
  
positive.code:            ~s"
  	  (code c)))
  
  (defmethod report-condition
      ((c empty-body) stream (language (eql 'en-us)))
    (format stream
  	  "The body of this form is empty:~@
             ~s"
  	  (code c)))
  
  (defmethod report-condition
      ((c numeric-catch-tag) stream (language (eql 'en-us)))
    (format stream
  	  "CATCH tags are compared with EQ so using a numeric~@
  
negative.code:            ~s was found."
  	  (type-error-datum c)))
  
  (defmethod cleavir-i18n:report-condition ((c slot-option-name-must-be-symbol)
  			     stream
  			     (language (eql 'en-us)))
    (format stream
  