Changeset 110

Timestamp:

03/15/07 21:41:55 (18 years ago)

Author:

Magnus Henoch

Message:

Fix thinko in get-common-and-uncommon

File:

• cl-darcs/trunk/repo.lisp (modified) (1 diff)

cl-darcs/trunk/repo.lisp ¶

@@ -160 +160 @@
   (let ((ours-list (apply #'append (reverse ours)))
         (theirs-list (apply #'append (reverse theirs))))
-    (values (union ours-list theirs-list :test #'equalp)
+    (values (intersection ours-list theirs-list :test #'equalp)
             (set-difference ours-list theirs-list :test #'equalp)
             (set-difference theirs-list ours-list :test #'equalp))))