
30 May
2011
30 May
'11
12:15 p.m.
Revision: 4668 Author: edi URL: http://bknr.net/trac/changeset/4668 Make argument ignorable U trunk/thirdparty/cl-fad/fad.lisp Modified: trunk/thirdparty/cl-fad/fad.lisp =================================================================== --- trunk/thirdparty/cl-fad/fad.lisp 2011-05-25 14:40:41 UTC (rev 4667) +++ trunk/thirdparty/cl-fad/fad.lisp 2011-05-30 12:15:18 UTC (rev 4668) @@ -94,6 +94,7 @@ When FOLLOW-SYMLINKS is NIL, it should return the actual directory contents, which might include symlinks. Currently this works on SBCL and CCL." + (declare (ignorable follow-symlinks)) (when (wild-pathname-p dirname) (error "Can only list concrete directory names.")) #+:ecl