[mcclim-cvs] CVS update: mcclim/Apps/Listener/util.lisp

[Max-Gerd Retzlaff]

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
                               )))