1.1--- a/lisp/bench/pkg.lisp	Thu Jul 04 22:24:50 2024 -0400
     1.2+++ b/lisp/bench/pkg.lisp	Thu Jul 04 23:47:45 2024 -0400
     1.3@@ -13,7 +13,7 @@
     1.4 (defbench simple () "")
     1.5 
     1.6 (defun core-coverage ()
     1.7-  (cover:clear-coverage)
     1.8+  (sb-cover:clear-coverage)
     1.9   (cover:with-coverage
    1.10     (asdf:load-system :core/tests)
    1.11     (rt:do-tests :core))

     2.1--- a/lisp/lib/cli/tools/tmux.lisp	Thu Jul 04 22:24:50 2024 -0400
     2.2+++ b/lisp/lib/cli/tools/tmux.lisp	Thu Jul 04 23:47:45 2024 -0400
     2.3@@ -32,9 +32,19 @@
     2.4 (defparameter *default-tmux-tmpdir* (pathname (format nil "/tmp/tmux-~A/" (sb-posix:getuid))))
     2.5 (defparameter *default-tmux-socket* (merge-pathnames "default" *default-tmux-tmpdir*))
     2.6 
     2.7-(defstruct tmux-session)
     2.8-(defstruct tmux-window)
     2.9-(defstruct tmux-pane)
    2.10+(defstruct tmux-session
    2.11+  (id 0 :type fixnum)
    2.12+  name
    2.13+  (windows nil :type list))
    2.14+(defstruct tmux-window
    2.15+  (id 0 :type fixnum)
    2.16+  name
    2.17+  (panes nil :type list)
    2.18+  layout)
    2.19+
    2.20+(defstruct tmux-pane
    2.21+  (id 0 :type fixnum)
    2.22+  name)
    2.23 
    2.24 (defun run-tmux (&rest args)
    2.25   (let ((proc (sb-ext:run-program *tmux* (or args nil) :output :stream)))
    2.26@@ -279,7 +289,6 @@
    2.27                                    (gethash (symbolicate a) *tmux-var-table* a))
    2.28                                  args)))
    2.29 
    2.30-
    2.31 (defstruct tmux-controller
    2.32   (input nil :type (or null sb-sys:fd-stream))
    2.33   (output nil :type (or null sb-sys:fd-stream))