diff --git a/clx/resource.lisp b/clx/resource.lisp index 743c14f46aa5c20c059b2a1495da6d7e0d9398a9..61ec2b34b0ad58b45bb850ec0b9832e57e11e693 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)