Skip to content
Snippets Groups Projects
Commit d4e72835 authored by Pascal J. Bourguignon's avatar Pascal J. Bourguignon
Browse files

Corrected call to list-threads from kill-threads.

parent b3f5d606
No related branches found
No related tags found
No related merge requests found
......@@ -80,7 +80,7 @@
(loop
:named select
:do (let ((threads (bt:all-threads)))
(list-threads threads *query-io*)
(list-threads :threads threads :stream *query-io*)
(format *query-io* "~&Number of thread to kill (or 0 to abort): ")
(let ((choice (let ((*read-eval* nil)) (read *query-io*))))
(cond
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment