fix a compile warning

This commit is contained in:
Renaud Casenave-Péré 2014-11-02 15:57:34 +09:00
parent a8d4f11193
commit b9223e2e90

View file

@ -17,6 +17,7 @@
"Initialize the debug module.
Check if the current thread is named `repl-thread' and if not,
start the swank server to accept remote connection."
(declare (ignore argv))
(format t "Initialize Debug module~%")
(when (not (string= (thread:thread-name (thread:current-thread)) "repl-thread"))
#+swank