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))