From af706b85fc46879468ab4e2ec8acfd212a95684e Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Thu, 14 Feb 1991 20:22:05 +0000
Subject: [PATCH] In set-root-resources, changed the default for :WRITE to be
 #'PRINC so that it is a function, not a symbol.

---
 clx/resource.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/clx/resource.lisp b/clx/resource.lisp
index 61ec2b34b..6795bc9d4 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. 
 
-- 
GitLab