aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/main.lisp14
1 files changed, 3 insertions, 11 deletions
diff --git a/src/main.lisp b/src/main.lisp
index b143d60..6dc2c7b 100644
--- a/src/main.lisp
+++ b/src/main.lisp
@@ -229,8 +229,6 @@
(lzb:set-canned-response *server* 404 "Not Found" "text/plain")
(lzb:set-canned-response *server* 500 "Server Error" "text/plain"))
-(defvar *swank-thread* nil)
-
(defun salt-from-file (path)
"Get server salt from a file, making one if not already extant. It
is recommended to keep this file somewhere other than the host where
@@ -279,8 +277,6 @@ contributors will be made. You should destroy this file after the initial
boot up, subsequent boots will not need it, even if it remains
mentioned in th config file.
-:SWANK-PORT, if provided, indicates that a swank server should be
-started, this will allow remote live debugging of the system.
"
(handler-case
(progn
@@ -289,8 +285,9 @@ started, this will allow remote live debugging of the system.
(with-open-file (input config-file)
(read input))))
(with-plist
- (port address salt-file domain store-dir init-admins-file swank-port) config
+ (port address salt-file domain store-dir init-admins-file) config
;; start the server with options in the config.
+
(apply 'start
(nconc
(when port (list :port port))
@@ -301,12 +298,7 @@ started, this will allow remote live debugging of the system.
(when store-dir (list :store-dir store-dir))))
;; make any admins listed.
(when init-admins-file
- (make-admins-from-file init-admins-file))
- (when swank-port
- (setf *swank-thread*
- (bt:make-thread
- (lambda () (swank:create-server :port swank-port :dont-close t))))
- (format t "started swank server on ~a~%" swank-port)))))
+ (make-admins-from-file init-admins-file)))))
(error (err)
(format t "Caught error ~a~%" err))))