From 5e6d61cc4220ef426f19f3026b7ad2bbfa412c5b Mon Sep 17 00:00:00 2001 From: Alan Ruttenberg Date: Thu, 8 Jun 2017 12:01:28 -0400 Subject: [PATCH] warn instead of format for flet removed warning --- src/org/armedbear/lisp/precompiler.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/org/armedbear/lisp/precompiler.lisp b/src/org/armedbear/lisp/precompiler.lisp index 559740dce..af4866a74 100644 --- a/src/org/armedbear/lisp/precompiler.lisp +++ b/src/org/armedbear/lisp/precompiler.lisp @@ -874,7 +874,7 @@ (return))) )))) (unless used-p - (format t "; Note: deleting unused local function ~A ~S~%" + (compiler-style-warn "; Note: deleting unused local function ~A ~S~%" operator name) (setf applicable-locals (remove local applicable-locals))))) (if applicable-locals