From: Sam S. <sd...@gn...> - 2004-09-20 16:29:44
|
> * Bruno Haible <oe...@py...t> [2004-09-20 13:57:41 +0200]: > > PATHNAME-MATCH-P.4 why do you make :DIRECTORY (:RELATIVE) match anything? that's what is causing the problem: local bool directory_match (object pattern, object sample, bool logical) { /* compare pattern with O(directory_default): */ if (eq(Car(pattern),S(Krelative)) && nullp(Cdr(pattern))) return true; -- Sam Steingold (http://www.podval.org/~sds) running w2k <http://www.camera.org> <http://www.iris.org.il> <http://www.memri.org/> <http://www.mideasttruth.com/> <http://www.honestreporting.com> ((lambda (x) (list x (list 'quote x))) '(lambda (x) (list x (list 'quote x)))) |