update cl-repl init file

This commit is contained in:
LordMZTE 2023-05-13 22:28:54 +02:00
parent f31994f491
commit 4460f34a41
Signed by: LordMZTE
GPG key ID: B64802DC33A64FF6

View file

@ -11,7 +11,8 @@
"Start a SWANK server."
(ql:quickload :swank)
;; Needs to be an eval since swank package isn't loaded at compile-time
(eval "(swank:create-server :dont-close t)"))
(let ((port (eval (read-from-string "(swank:create-server :dont-close t)"))))
(cl-repl:message-from-magic "Started SWANK server on port ~A" port)))
;; Remove bullshit commands
(delete-if