From cb0054b265e66721e2759b33d7e20319e62d267e Mon Sep 17 00:00:00 2001
From: Marin Atanasov Nikolov <dnaeon@gmail.com>
Date: Mon, 15 May 2023 19:32:09 +0300
Subject: [PATCH] Check for :slynk or :swank features before exiting

---
 src/utils.lisp | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/src/utils.lisp b/src/utils.lisp
index 6c6ff04..5cda0b3 100644
--- 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"