From bfba17b6c3b458273de41a18aa9693cdfeabc04e Mon Sep 17 00:00:00 2001
From: pw <pw>
Date: Fri, 8 May 1998 16:33:55 +0000
Subject: [PATCH] Fix defsetf of ROOT-RESOURCES. Short form was used when long
 form required.

---
 clx/resource.lisp | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/clx/resource.lisp b/clx/resource.lisp
index 8de345c99..a154cae19 100644
--- a/clx/resource.lisp
+++ b/clx/resource.lisp
@@ -676,7 +676,9 @@
 		      :write write :test test :test-not test-not)
     database))
 
-(defsetf root-resources set-root-resources)
+(defsetf root-resources (screen &key test test-not (write #'princ))(database)
+  `(set-root-resources
+    ,screen :test ,test :test-not ,test-not :write ,write :database ,database))
 
 (defun initialize-resource-database (display)
   ;; This function is (supposed to be) equivalent to the Xlib initialization
-- 
GitLab