[Cl-darcs-cvs] r9 - cl-darcs/trunk

[mhenoch at common-lisp.net]

Author: mhenoch
Date: Sun Jun 11 14:56:03 2006
New Revision: 9

Modified:
   cl-darcs/trunk/patchinfo.lisp
Log:
Fix invert-patchinfo - make it return the copy as well.


Modified: cl-darcs/trunk/patchinfo.lisp
==============================================================================
--- cl-darcs/trunk/patchinfo.lisp	(original)
+++ cl-darcs/trunk/patchinfo.lisp	Sun Jun 11 14:56:03 2006
@@ -114,4 +114,5 @@
   "Make a copy of PATCHINFO with the inverted flag toggled."
   (let ((copy (copy-patchinfo patchinfo)))
     (setf (patchinfo-inverted copy)
-	  (not (patchinfo-inverted copy)))))
+	  (not (patchinfo-inverted copy)))
+    copy))