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