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