From b6a1f868a4630b72c51b21471d20c766cceedb5e Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Sun, 17 Jun 1990 11:29:25 +0000
Subject: [PATCH] Fixed arg order to MAP-RESOURCE in MERGE-RESOURCES.

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

diff --git a/clx/resource.lisp b/clx/resource.lisp
index 743c14f46..61ec2b34b 100644
--- a/clx/resource.lisp
+++ b/clx/resource.lisp
@@ -472,7 +472,7 @@
 (defun merge-resources (database with-database)
   (declare (type resource-database database with-database))
   (declare (values resource-database))
-  (map-resource #'add-resource database with-database)
+  (map-resource database #'add-resource with-database)
   with-database)
 
 (defun char-memq (key char)
-- 
GitLab