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