From 452cc358044079ea70fa48eded5a43c8b32abe40 Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Sat, 12 Jan 1991 02:48:45 +0000
Subject: [PATCH] Fixed bug in a format control string.  It was ~[, which takes
 a number, but it should have been ~:[, which takes a boolean.

---
 compiler/ir1util.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compiler/ir1util.lisp b/compiler/ir1util.lisp
index 3b241823f..cfe984d74 100644
--- a/compiler/ir1util.lisp
+++ b/compiler/ir1util.lisp
@@ -640,7 +640,7 @@ inlines
 	       (return (lambda-return leaf)))
 	  (unless (leaf-ever-used leaf)
 	    (let ((*compiler-error-context* bind))
-	      (compiler-note "Deleting unused function~[.~;~:*~%  ~S~]"
+	      (compiler-note "Deleting unused function~:[.~;~:*~%  ~S~]"
 			     (leaf-name leaf))))
 	  (unlink-blocks (component-head component) bind-block)
 	  (when return
-- 
GitLab