Update of /project/mcclim/cvsroot/mcclim/Apps/Listener In directory common-lisp.net:/tmp/cvs-serv5766 Modified Files: util.lisp Log Message: Adds a version of LIST-DIRECTORY for Allegro Common Lisp, and adds a read-time check for :ALLEGRO to GEN-WILD-PATHNAME as ACL doesn't allow PATHNAMES to have :VERSION specified as :WILD (ACL now gets :UNSPECIFIC). (A bug report has been sent to Franz a while ago.) Date: Thu Oct 13 16:32:13 2005 Author: mretzlaff Index: mcclim/Apps/Listener/util.lisp diff -u mcclim/Apps/Listener/util.lisp:1.18 mcclim/Apps/Listener/util.lisp:1.19 --- mcclim/Apps/Listener/util.lisp:1.18 Wed Aug 31 07:50:37 2005 +++ mcclim/Apps/Listener/util.lisp Thu Oct 13 16:32:13 2005 @@ -138,8 +138,12 @@ (defun list-directory (pathname) (directory pathname :directories t :follow-links nil)) +#+ALLEGRO +(defun list-directory (pathname) + (directory pathname :directories-are-files nil)) + ;; Fallback to ANSI CL -#-(OR CMU SBCL OPENMCL) +#-(OR CMU SBCL OPENMCL ALLEGRO) (defun list-directory (pathname) (directory pathname)) @@ -257,7 +261,8 @@ :directory (pathname-directory pathname) :name (or (pathname-name pathname) :wild) :type (or (pathname-type pathname) :wild) - :version (or :wild + :version (or #+allegro :unspecific + :wild ;#-SBCL (pathname-version pathname) ;#+SBCL :newest )))