Add #'stop-process

Remove #'stop-server
svenvc · Feb 2, 2021 · 7f8de28 · 7f8de28
1 parent 9aa23bb
commit 7f8de28
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 4 deletions.
diff --git a/src/package.lisp b/src/package.lisp
@@ -17,6 +17,7 @@
    #:current-process
    #:kill-process
    #:run-process
+   #:stop-process
    #:all-processes
    #:start-standard-server
    #:open-socket-stream

diff --git a/src/sysdeps.lisp b/src/sysdeps.lisp
@@ -73,11 +73,12 @@
 			 ;; we must use :default on SBCL to get a bivalent stream
 			 :element-type :default))
 
-(defun stop-server (name)
-  "Stop a named server"
+(defun stop-process (name)
+  "Stop a named process by destroying it"
   (let ((thread (find name (bt:all-threads) :key #'bt:thread-name :test #'equal)))
-    (when thread (bt:destroy-thread thread))
-    name))
+    (when thread
+      (bt:destroy-thread thread)
+      name)))
 
 ;; working with process locks