parent 441b369a
......@@ -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
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment