From 3d0020afa69dc60a68321ff09bb0491572317aca Mon Sep 17 00:00:00 2001 From: Gavin Jaeger-Freeborn Date: Sun, 21 Aug 2022 16:40:17 -0700 Subject: [PATCH] small code optimizations --- config | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/config b/config index 4f338bb..b8f505e 100644 --- a/config +++ b/config @@ -214,7 +214,7 @@ "Select Window: ")))) (defun windows-in-group (group) - (group-windows (find group (screen-groups (current-screen)) + (group-windows (find group (the list (screen-groups (current-screen))) :key 'group-name :test 'equal))) (defcommand pull-from-trash () () @@ -246,7 +246,7 @@ (defun always-on-top-on (window) () "set the given WINDOW to always be on top of other windows" (let ((w window) - (windows (group-on-top-windows (current-group)))) + (windows (the list (group-on-top-windows (current-group))))) (when w (unless (find w windows) (push window (group-on-top-windows (current-group)))))))