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

[mhenoch at common-lisp.net]

Author: mhenoch
Date: Fri Mar 30 08:14:33 2007
New Revision: 116

Modified:
   cl-darcs/trunk/send.lisp
Log:
Don't use PI as variable in lambda function


Modified: cl-darcs/trunk/send.lisp
==============================================================================
--- cl-darcs/trunk/send.lisp	(original)
+++ cl-darcs/trunk/send.lisp	Fri Mar 30 08:14:33 2007
@@ -77,8 +77,8 @@
 
 	  ;; XXX: handle tags properly.
 	  (let ((latest-tag (member-if
-			     (lambda (pi)
-			       (string= (patchinfo-name pi) "TAG "
+			     (lambda (patchinfo)
+			       (string= (patchinfo-name patchinfo) "TAG "
 					:end1 4))
 			     common)))
 	    ;; Here we just cut history after the latest tag.  This