Commit 0b237edf authored by toy's avatar toy
Browse files

Set default pad value to #\space.

parent 14e9ea8b
......@@ -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))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment