floss/stoe
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fix a compile warning

Browse source
This commit is contained in:
Renaud Casenave-Péré 2014-11-02 15:57:34 +09:00
parent a8d4f11193
commit b9223e2e90
1 changed files with 1 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
src/debug.lisp
View file

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