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:         (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
  
negative.code:                              nil
                               (file-position stream))
            :form-as-string form-as-string
            :message message
            :message-args message-args))
  
  (defun readable-object-p (object)
    (null
  