window: Refactor print-status.

hendursaga · Sep 7, 2023 · 2b99c9c · 2b99c9c
1 parent fcc84f6
commit 2b99c9c
Showing 1 changed file with 3 additions and 4 deletions.
diff --git a/source/window.lisp b/source/window.lisp
@@ -161,10 +161,9 @@ The handlers take the window as argument."))
   (setf (slot-value window 'active-buffer) buffer))
 
 (defun print-status (&optional (window (current-window)))
-  (when (and window (status-buffer window))
-    (ffi-print-status
-     window
-     (format-status (status-buffer window)))))
+  (with-slots (status-buffer) window
+    (when (and window status-buffer)
+      (ffi-print-status window (format-status status-buffer)))))
 
 (hooks:define-hook-type window (function (window))
   "Hook acting on `window's.")