update cl-repl init file

2023-05-13 22:28:54 +02:00 · 2023-05-13 22:28:54 +02:00 · 4460f34a41
parent f31994f491
commit 4460f34a41
1 changed files with 2 additions and 1 deletions
--- a/.replrc
+++ b/.replrc
@ -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