From sky at viridian-project.de  Wed Oct 15 17:43:06 2008
From: sky at viridian-project.de (Leslie P. Polzer)
Date: Wed, 15 Oct 2008 19:43:06 +0200 (CEST)
Subject: [meta-cvs-devel] Bug in LCS-LIST
Message-ID: <64410.88.73.243.115.1224092586.squirrel@mail.stardawn.org>


LCS-LIST doesn't propagate its TEST arg to subcalls.

Fix:

- (t (let ((lcs-1 (lcs-list list-1 (rest list-2)))
-          (lcs-2 (lcs-list (rest list-1) list-2)))
+ (t (let ((lcs-1 (lcs-list list-1 (rest list-2) :test test))
+          (lcs-2 (lcs-list (rest list-1) list-2 :test test)))

(wow, I diffed a diff tool!)

  Leslie

-- 
LinkedIn Profile: http://www.linkedin.com/in/polzer
Xing Profile: https://www.xing.com/profile/LeslieP_Polzer
Blog: http://blog.viridian-project.de/