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:    (form-as-string
      :initarg :form-as-string
      :reader transcription-error-form-as-string)
     ;; A string detailed the circumstances of the error.
     (message
      :initarg :message
      :reader transcription-error-message))
    (: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~].~%~
                         ~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-form-as-string condition))))))
  
  (defun print-reference-with-package (reference)
  
negative.code:         (cond ((/= (length values) (length old-values))
                 (consistency-error
                  stream form-as-string
                  "Source had ~S return values ~:@_while there are actually ~S."
                  (length old-values) (length values)))
                (t
                 (loop for value in values
  