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
oct
oct
Commits
0b237edf
Commit
0b237edf
authored
May 23, 2007
by
toy
Browse files
Set default pad value to #\space.
parent
14e9ea8b
Changes
1
Hide whitespace changes
Inline
Side-by-side
qd-format.lisp
View file @
0b237edf
...
...
@@ -101,6 +101,6 @@
(
write-string
estr
stream
)))))))))
(
defun
qd-format-exp
(
stream
arg
colon-p
at-sign-p
&optional
w
d
e
(
k
1
)
ovf
pad
exp-marker
)
&optional
w
d
e
(
k
1
)
ovf
(
pad
#\space
)
exp-marker
)
(
declare
(
ignore
colon-p
))
(
qd-format-exp-aux
stream
arg
w
d
e
k
ovf
pad
exp-marker
at-sign-p
))
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