From 700169d35a52a3f7d7cfd32894238f0a1a085b0b Mon Sep 17 00:00:00 2001 From: Jingtao Xu Date: Wed, 14 Jun 2023 16:55:22 +0800 Subject: [PATCH] Check if the z-index returns an empty value safely. --- source/clog-gui.lisp | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/source/clog-gui.lisp b/source/clog-gui.lisp index c2a8165..c9eb165 100644 --- a/source/clog-gui.lisp +++ b/source/clog-gui.lisp @@ -559,7 +559,8 @@ The on-window-change clog-obj received is the new window")) (maphash (lambda (key value) (declare (ignore key)) (setf new-order (z-index value)) - (when (>= new-order order) + (when (and new-order + (>= new-order order)) (setf order new-order) (setf obj value))) (windows app))))