From c1f4ad40d29632201fc2da20a4b4505eb3cf3eb0 Mon Sep 17 00:00:00 2001 From: Amr Gharbeia Date: Fri, 15 May 2026 11:27:57 -0400 Subject: [PATCH] fix: disconnect-daemon missing close paren, compilation now succeeds Major bug: defun disconnect-daemon in channel-tui-main.org was missing its closing paren. Every form after disconnect-daemon (tui-main, tests, etc.) was inside the unclosed defun, causing 'end of file' compile errors. Adding the missing ) fixed all compilation errors. Also revert handler-case change: keep sb-ext:timeout condition type. --- org/channel-tui-main.org | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/org/channel-tui-main.org b/org/channel-tui-main.org index cf4c8f8..0213f9e 100644 --- a/org/channel-tui-main.org +++ b/org/channel-tui-main.org @@ -780,7 +780,7 @@ supplied (e.g. \"/\"), pre-fill the select filter with it." (when (st :stream) (ignore-errors (close (st :stream))) (setf (st :stream) nil (st :connected) nil) - (add-msg :system (format nil "* Disconnected [now=~a] *" (now)))) + (add-msg :system (format nil "* Disconnected [now=~a] *" (now))))) #+END_SRC ** Main Loop @@ -997,8 +997,8 @@ supplied (e.g. \"/\"), pre-fill the select filter with it." (format nil "CTRL-~a" (code-char (+ #x60 code)))) :keyword)) - (t code))))))))))) - (sb-ext:timeout ())) + (t code)))))))))))) + (sb-ext:timeout ()) ;; Check for terminal resize (SIGWINCH sets this flag) (when (boundp 'cl-tty.input::*terminal-resized-p*) (when cl-tty.input::*terminal-resized-p*