Minor

Shirakumo · Jan 3, 2025 · 90b6397 · 90b6397
1 parent be57bc9
commit 90b6397
Showing 1 changed file with 12 additions and 5 deletions.
diff --git a/gl-features.lisp b/gl-features.lisp
@@ -254,9 +254,16 @@
 ;; KLUDGE: this sucks.
 (defvar *depth-mask* T)
 (defmacro with-depth-mask (mode &body body)
-  (let ((old-mode (gensym "OLD-MODE")))
+  (let ((old-mode (gensym "OLD-MODE"))
+        (new-mode (gensym "NEW-MODE"))
+        (thunk (gensym "THUNK")))
     `(let ((,old-mode *depth-mask*)
-           (*depth-mask* ,mode))
-       (gl:depth-mask *depth-mask*)
-       (multiple-value-prog1 (progn ,@body)
-         (gl:depth-mask ,old-mode)))))
+           (,new-mode ,mode))
+       (flet ((,thunk ()
+                ,@body))
+         (if (eq ,new-mode ,old-mode)
+             (,thunk)
+             (let ((*depth-mask* ,new-mode))
+               (gl:depth-mask ,new-mode)
+               (multiple-value-prog1 (,thunk)
+                 (gl:depth-mask ,old-mode))))))))