Skip to content
Snippets Groups Projects
Commit 2349aa23 authored by wlott's avatar wlott
Browse files

Fixed format-print-character. It used to call format-print-named-character

with two args, but fpnc only wants one.
parent 92b30aab
No related branches found
No related tags found
No related merge requests found
......@@ -945,13 +945,12 @@
(let ((char (pop-format-arg)))
(unless (characterp char)
(format-error "Argument must be a character"))
(cond ((not colon)
(cond (atsign
(prin1 char))
(t
(format-print-named-character char nil))))
(cond (colon
(format-print-named-character char))
(atsign
(prin1 char))
(t
(format-print-named-character char t))))))
(write-char char))))))
(defun format-print-named-character (char)
(let* ((name (char-name char)))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment