Changed order of link parameters to did-link will-unlink method calls.

Pascal J. Bourguignon [2014-02-06 00:43]
Changed order of link parameters to did-link will-unlink method calls.
Filename
clext/association.lisp
diff --git a/clext/association.lisp b/clext/association.lisp
index 2458717..2067048 100644
--- a/clext/association.lisp
+++ b/clext/association.lisp
@@ -830,11 +830,11 @@ BUGS:    If there is an error in handling one association end, after
          ,(generate-addset name
                            (second link-parameters) (first link-parameters)
                            (second endpoints))
-         (did-link  ',name ,(second link-parameters) ,(first link-parameters)))
+         (did-link ',name ,(first link-parameters) ,(second link-parameters)))
        (defun ,unlink (&key ,@link-parameters)
          (multiple-value-prog1 (will-unlink  ',name
-                                             ,(second link-parameters)
-                                             ,(first link-parameters))
+                                             ,(first link-parameters)
+                                             ,(second link-parameters))
            ,(generate-remove name
                              (first link-parameters) (second link-parameters)
                              (first endpoints))
ViewGit