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

[Andy Hefner]

Update of /project/mcclim/cvsroot/mcclim/Apps/Listener
In directory common-lisp.net:/tmp/cvs-serv13017/Apps/Listener

Modified Files:
	util.lisp 
Log Message:
Applied patch to directoryp for ACL from rpgoldman.


Date: Tue Feb 22 04:10:28 2005
Author: ahefner

Index: mcclim/Apps/Listener/util.lisp
diff -u mcclim/Apps/Listener/util.lisp:1.16 mcclim/Apps/Listener/util.lisp:1.17
--- mcclim/Apps/Listener/util.lisp:1.16	Sun Jan  2 06:14:28 2005
+++ mcclim/Apps/Listener/util.lisp	Tue Feb 22 04:10:27 2005
@@ -54,6 +54,8 @@
 ; There has to be a better way..
 (defun directoryp (pathname)
   "Returns pathname when supplied with a directory, otherwise nil"
+  #+allegro (excl:file-directory-p pathname)
+  #-allegro 
   (if (or (pathname-name pathname) (pathname-type pathname))
       nil
       pathname))