mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-03-10 07:00:20 -07:00
Code Issues Projects Releases Packages Wiki Activity

trace: improve warning message

Browse source 
Signed-off-by: Daniel Kochmański <daniel@turtleware.eu>
This commit is contained in:
Daniel Kochmański 2015-08-09 10:53:42 +02:00
parent ad9fafaa16
commit e3ec8fa496
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/lsp/trace.lsp
View file

@ -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