diff --git a/clx/resource.lisp b/clx/resource.lisp index 61ec2b34b0ad58b45bb850ec0b9832e57e11e693..6795bc9d4382fc39ccb693f07ae8f9d622ad6e80 100644 --- a/clx/resource.lisp +++ b/clx/resource.lisp @@ -669,7 +669,7 @@ (wm-resources database window :key key :test test :test-not test-not) database)) -(defun set-root-resources (screen &key test test-not (write 'princ) database) +(defun set-root-resources (screen &key test test-not (write #'princ) database) "Changes the contents of the root window RESOURCE_MANAGER property for the given SCREEN. If SCREEN is a display, then its default screen is used.