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