Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
clpm
clpm
Commits
7ce710dd
Commit
7ce710dd
authored
May 24, 2020
by
Eric Timmons
Browse files
Print VCS diffs correctly on SBCL in client
Believe this is due to
https://bugs.launchpad.net/sbcl/+bug/309090
parent
08bc94bc
Changes
1
Hide whitespace changes
Inline
Side-by-side
client/diff.lisp
View file @
7ce710dd
...
@@ -83,7 +83,8 @@ source, and finally new source."
...
@@ -83,7 +83,8 @@ source, and finally new source."
(
defun
print-context-diff-to-stream
(
diff
stream
)
(
defun
print-context-diff-to-stream
(
diff
stream
)
"Print a human readable description of DIFF to 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
(
header-format-string
(
apply
#'
format
nil
"~~~D<~~A~~> ~
(
apply
#'
format
nil
"~~~D<~~A~~> ~
~~~D<~~@[~~A~~]~~> ~~~D<~~@[~~A~~]~~> ~
~~~D<~~@[~~A~~]~~> ~~~D<~~@[~~A~~]~~> ~
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment