From e3ec8fa4963e59cc7084af0a318bc0eea28fb858 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Daniel=20Kochma=C5=84ski?= <daniel@turtleware.eu>
Date: Sun, 9 Aug 2015 10:53:42 +0200
Subject: [PATCH] trace: improve warning message
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Signed-off-by: Daniel Kochmański <daniel@turtleware.eu>
---
 src/lsp/trace.lsp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/lsp/trace.lsp b/src/lsp/trace.lsp
index 411244237..a5c4954c3 100644
--- a/src/lsp/trace.lsp
+++ b/src/lsp/trace.lsp
@@ -107,7 +107,7 @@ all functions."
         (cond ((traced-and-redefined-p record)
                (delete-from-trace-list fname))
               (t
-               (warn "The function ~S is already traced." fname)
+               (warn "The function ~S is already traced. Statement has no effect." fname)
                (return-from trace-one nil)))))
     (setq oldf (fdefinition fname))
     (eval