Red Hat Linux
Click URL instructions:
Right-click on ad, choose "Copy Link", then paste here →
(This may not be possible with some types of ads)
You seem to have CSS turned off.
Please don't fill out this field.
Briefly describe the problem (required):
Please provide the ad click URL, if possible:
Update of /cvsroot/sbcl/sbcl/src/code
In directory fdv4jf1.ch3.sourceforge.com:/tmp/cvs-serv5928/src/code
18.104.22.168: regression in DIRECTORY when matching directory patterns
* Don't recurse on the return value of PATTERN-MATCHES, but rather
the subdirectory that matches.
RCS file: /cvsroot/sbcl/sbcl/src/code/filesys.lisp,v
retrieving revision 1.82
retrieving revision 1.83
diff -u -d -r1.82 -r1.83
--- filesys.lisp 2 Jun 2009 15:59:34 -0000 1.82
+++ filesys.lisp 15 Jun 2009 10:03:55 -0000 1.83
@@ -704,6 +704,7 @@
symbolic link as an immediate child of DIRECTORY.
Experimental: interface subject to change."
+ (declare (pathname-designator directory))
(let* ((fun (%coerce-callable-to-fun function))
(physical (physicalize-pathname directory))
;; Not QUERY-FILE-SYSTEM :EXISTENCE, since it doesn't work on Windows
@@ -807,8 +808,8 @@
(if (eq :wild this)
- (awhen (pattern-matches this (last-directory-piece sub))
- (funcall #'cont it))))
+ (when (pattern-matches this (last-directory-piece sub))
+ (funcall #'cont sub))))
Sign up for the SourceForge newsletter: