Commit 7ce710dd authored by Eric Timmons's avatar Eric Timmons
Browse files

Print VCS diffs correctly on SBCL in client

parent 08bc94bc
Loading
Loading
Loading
Loading
+2 −1
Original line number Diff line number Diff line
@@ -83,7 +83,8 @@ source, and finally new source."

(defun print-context-diff-to-stream (diff stream)
  "Print a human readable description of DIFF to STREAM."
  (let* ((column-lengths (context-diff-column-widths diff))
  (let* ((*print-circle* nil)
         (column-lengths (context-diff-column-widths diff))
         (header-format-string
           (apply #'format nil "~~~D<~~A~~>   ~
~~~D<~~@[~~A~~]~~>      ~~~D<~~@[~~A~~]~~>   ~