From 2349aa231f0a6b65bbff9265e24b6868d9a72f63 Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Sun, 9 Sep 1990 23:48:58 +0000 Subject: [PATCH] Fixed format-print-character. It used to call format-print-named-character with two args, but fpnc only wants one. --- code/format.lisp | 11 +++++------ 1 file changed, 5 insertions(+), 6 deletions(-) diff --git a/code/format.lisp b/code/format.lisp index 24cc4e19a..0f4bad87b 100644 --- a/code/format.lisp +++ b/code/format.lisp @@ -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))) -- GitLab