Check for :slynk or :swank features before exiting

dnaeon · May 15, 2023 · cb0054b · cb0054b
1 parent 7d9f965
commit cb0054b
Showing 1 changed file with 5 additions and 2 deletions.
diff --git a/src/utils.lisp b/src/utils.lisp
@@ -77,8 +77,11 @@
 
 (defun exit (&optional (code 0))
   "Exit the program returning the given exit code to the operating system"
-  (declare (ignore code))
-  #-(or swank slynk) (uiop:quit code))
+  ;; Do not exit if we are running from SLY or SLIME
+  (unless (some (lambda (feat)
+                  (member feat *features*))
+                (list :slynk :swank))
+    (uiop:quit code)))
 
 (defun git-rev-parse (&key short (rev "HEAD") (path "."))
   "Returns the git revision with the given REV"