Skip to content
Snippets Groups Projects
Commit 452cc358 authored by wlott's avatar wlott
Browse files

Fixed bug in a format control string. It was ~[, which takes a number, but

it should have been ~:[, which takes a boolean.
parent 7081bed0
No related branches found
No related tags found
No related merge requests found
...@@ -640,7 +640,7 @@ inlines ...@@ -640,7 +640,7 @@ inlines
(return (lambda-return leaf))) (return (lambda-return leaf)))
(unless (leaf-ever-used leaf) (unless (leaf-ever-used leaf)
(let ((*compiler-error-context* bind)) (let ((*compiler-error-context* bind))
(compiler-note "Deleting unused function~[.~;~:*~% ~S~]" (compiler-note "Deleting unused function~:[.~;~:*~% ~S~]"
(leaf-name leaf)))) (leaf-name leaf))))
(unlink-blocks (component-head component) bind-block) (unlink-blocks (component-head component) bind-block)
(when return (when return
......
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