Just Launched: You can now import projects and releases from Google Code onto SourceForge
We are excited to release new functionality to enable a 1-click import from Google Code onto the Allura platform on SourceForge. You can import tickets, wikis, source, releases, and more with a few simple steps. Read More
Update of /cvsroot/sbcl/sbcl/src/compiler
In directory fdv4jf1.ch3.sourceforge.com:/tmp/cvs-serv16053/src/compiler
220.127.116.11: partial re-implementation of DIRECTORY
* Rip out !ENUMERATE-MATCHES, which insisted on walking the
directory tree from the root -- making using DIRECTORY on
UNC pathnames a losing proposition.
* New guts built on top of MAP-DIRECTORY, and it's lower level cousin
WITH-NATIVE-DIRECTORY-ITERATOR. This seems easier to understand to
me at least, and was certainly easier than trying to re-architect
!ENUMERATE-MATCHES. ...and DIRECTORY now works on UNC shares, yay!
...and a bunch of associated secondary changes:
** Rename UNIX-FILE-KIND NATIVE-FILE-KIND, and move it to
** Add functions UNIX-OPENDIR, UNIX-READDIR, UNIX-CLOSEDIR, and
UNIX-DIRENT-NAME -- later to be turned into OS-*, and possibly
moved into SB-SYS.
** *IGNORE-WILDCARDS* is no longer needed in MAYBE-MAKE-PATTERN,
** Share UNPARSE-*-PIECE as UNPARSE-PHYSICAL-PIECE between Win32
and Unix: both have the same lisp namestring syntax for pieces,
and if a third pathname host appears it probably should too.
** Fix DEFKNOWN of DIRECTORY: RESOLVE-SYMLINKS needs to be a
** Kill QUICK-INTEGER-TO-STRING -- use %OUTPUT-INTEGER-IN-BASE
in GENSYM instead.
** Kill PATHAME-ORDER, unused.
** Follow the same convention as elsewhere for :AS-FILE in
NATIVE-NAMESTRING on Windows -- users needing the
no-trailing-slash version are supposed to say :AS-FILE. OS
pickiness on slash-or-no seems universal...
RCS file: /cvsroot/sbcl/sbcl/src/compiler/fndb.lisp,v
retrieving revision 1.156
retrieving revision 1.157
diff -u -d -r1.156 -r1.157
--- fndb.lisp 16 May 2009 11:24:30 -0000 1.156
+++ fndb.lisp 20 May 2009 13:51:53 -0000 1.157
@@ -1257,7 +1257,7 @@
-(defknown directory (pathname-designator &key (resolve-symlinks t))
+(defknown directory (pathname-designator &key (:resolve-symlinks t))
;;;; from the "Conditions" chapter: