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