anchor.diff:      (unless (string= output-string joined)
         (consistency-error
          stream form-as-string
  -       "Inconsistent output found. Source:~%~S~%Output:~%~S~%"
  +       "Inconsistent output found.~:@_Source: ~:@_~S ~:@_Output: ~:@_~S"
          joined output-string))))
   
   (defun check-values-consistency (stream form-as-string values old-values)
  
positive.code:                               (prin1-to-string old-value-value)))
               (consistency-error
                stream form-as-string
                "Readable value ~S in source does not print the same as ~S."
                old-value-value value)))
            ((not (string= (prin1-to-string value)
                           old-value-value))
             (consistency-error
              stream form-as-string
              "Unreadable value ~S in source does not print the same as ~S."
              old-value-value value)))))
  
  (defun join-collected-lines (lines)
    (let ((n (length lines)))
  
negative.code:    (form-as-string
      :initarg :form-as-string
      :reader transcription-error-form-as-string)
     ;; A string detailing the circumstances of the error.
     (message
      :initarg :message
      :reader transcription-error-message)
     (message-args
      :initarg :message-args
      :reader transcription-error-message-args))
    (:documentation "Represents syntactic errors in the SOURCE argument
    of TRANSCRIBE and also serves as the superclass of
    TRANSCRIPTION-CONSISTENCY-ERROR.")
    (:report (lambda (condition stream)
               (let ((on (transcription-error-on condition)))
                 (format stream
                         "~@<Transcription error in ~A~@[ ~:@_at position ~A~].~
                         ~:@_~?~:@_~
                         Form: ~:@_~S~:@>"
                         (if (typep on 'reference)
                             ;; Allow M-. to work in the slime debugger.
                             (print-reference-with-package on)
                             on)
                         (transcription-error-file-position condition)
                         (transcription-error-message condition)
                         (transcription-error-message-args condition)
                         (transcription-error-form-as-string condition))))))
  
  (defun print-reference-with-package (reference)
  