diff options
| author | Pierre Neidhardt <mail@ambrevar.xyz> | 2019-05-05 09:10:28 +0200 |
|---|---|---|
| committer | Pierre Neidhardt <mail@ambrevar.xyz> | 2019-05-05 09:10:28 +0200 |
| commit | 4a033d4355caed842f6b2f4ae37f72e758296e55 (patch) | |
| tree | d2109eef5ae8a0df6084f48f7fce8568d4fca5c7 /source | |
| parent | b86df9007694d06cbc48036d5ecbcaad90b0d159 (diff) | |
Add optional SWANK-PORT parameter to START-SWANK
Diffstat (limited to 'source')
| -rw-r--r-- | source/global.lisp | 2 | ||||
| -rw-r--r-- | source/utility.lisp | 8 |
2 files changed, 5 insertions, 5 deletions
diff --git a/source/global.lisp b/source/global.lisp index e792d2144..765220a1e 100644 --- a/source/global.lisp +++ b/source/global.lisp @@ -18,7 +18,7 @@ "A hash of all available commands.") (defvar *swank-port* 4006 - "The port that swank will open a new server on (default Emacs slime port + "The port that Swank will open a new server on (default Emacs SLIME port is 4005, default set to 4006 in Next to avoid collisions).") ;; TODO: Unused. Remove? Might be useful when we introspect classes. diff --git a/source/utility.lisp b/source/utility.lisp index 72410e7d5..a31c1708f 100644 --- a/source/utility.lisp +++ b/source/utility.lisp @@ -21,10 +21,10 @@ :input-prompt "Load file:")) (load file-name-input :if-does-not-exist nil))) -(define-command start-swank () - "Start a swank server that can be connected to in Emacs via -slime. Default port is 4006." - (swank:create-server :port *swank-port* :dont-close t)) +(define-command start-swank (&optional (swank-port *swank-port*)) + "Start a Swank server that can be connected to, for instance, in Emacs via +SLIME." + (swank:create-server :port swank-port :dont-close t)) (defun parse-url (input-url) (handler-case |