amr/passepartout
1
0
Fork 0
Code Issues 15 Pull Requests 1 Actions Packages Projects Releases Wiki Activity

fix: disconnect-daemon missing close paren, compilation now succeeds

Browse Source 
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.
This commit is contained in:
Amr Gharbeia
2026-05-15 11:27:57 -04:00
parent d14ff3a316
commit c1f4ad40d2
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
org/channel-tui-main.org
View File

@@ -780,7 +780,7 @@ supplied (e.g. \"/\"), pre-fill the select filter with it."
(when (st :stream) (when (st :stream)
(ignore-errors (close (st :stream))) (ignore-errors (close (st :stream)))
(setf (st :stream) nil (st :connected) nil) (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 #+END_SRC
** Main Loop ** Main Loop
@@ -997,8 +997,8 @@ supplied (e.g. \"/\"), pre-fill the select filter with it."
(format nil "CTRL-~a" (format nil "CTRL-~a"
(code-char (+ #x60 code)))) (code-char (+ #x60 code))))
:keyword)) :keyword))
(t code))))))))))) (t code))))))))))))
(sb-ext:timeout ())) (sb-ext:timeout ())
;; Check for terminal resize (SIGWINCH sets this flag) ;; Check for terminal resize (SIGWINCH sets this flag)
(when (boundp 'cl-tty.input::*terminal-resized-p*) (when (boundp 'cl-tty.input::*terminal-resized-p*)
(when cl-tty.input::*terminal-resized-p* (when cl-tty.input::*terminal-resized-p*