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)
(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*