From 4460f34a41d0fe675f5abb21573267dafd86136e Mon Sep 17 00:00:00 2001 From: LordMZTE Date: Sat, 13 May 2023 22:28:54 +0200 Subject: [PATCH] update cl-repl init file --- .replrc | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/.replrc b/.replrc index d49e0da..600db1c 100644 --- 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