anchor.diff:                                (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)))
  +              "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)))))
  +            "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)))
  
positive.code:   (: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.
  
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
  