v0.8.3: remove startup info messages from chat history

Remove the add-msg :system calls that printed * Swank <port> * and
* <backend> backend WxH * — purely informational/debug messages
that cluttered the first lines of the chat window.
This commit is contained in:
2026-05-20 10:04:24 -04:00
parent 8eb866dee3
commit 8dd94f6d3c
2 changed files with 41 additions and 8 deletions

View File

@@ -946,17 +946,13 @@ Returns T on success, nil on failure. Does NOT wait or retry."
(*error-output* (make-string-output-stream)))
(funcall (find-symbol "CREATE-SERVER" "SWANK")
:port swank-port :dont-close t))
(add-msg :system
(format nil "* Swank ~d M-x slime-connect *" swank-port)))
(values))
(error ()
(add-msg :system "* Swank unavailable *"))))
(cl-tty.backend:with-terminal (be w h)
;; stty -icanon -echo -ixon is set by the bash script.
;; We read directly from SBCL's stdin (fd 0) since the
;; terminal is in raw mode — no cat subprocess needed.
(add-msg :system (format nil "* ~a backend ~dx~d *"
(if (typep be 'cl-tty.backend:modern-backend) "modern" "simple")
w h))
;; stty -icanon -echo -ixon is set by the bash script.
;; We read directly from SBCL's stdin (fd 0) since the
;; terminal is in raw mode — no cat subprocess needed.
;; Initial dirty all to trigger first redraw in loop
(setq w (or (and (numberp w) (> w 0) w) 80)
h (or (and (numberp h) (> h 0) h) 24))