Update of /project/mcclim/cvsroot/mcclim/Apps/Listener In directory cl-net:/tmp/cvs-serv11848
Modified Files: dev-commands.lisp util.lisp Log Message: Listener fixes from Willem Broekema.
--- /project/mcclim/cvsroot/mcclim/Apps/Listener/dev-commands.lisp 2008/10/22 23:58:12 1.63 +++ /project/mcclim/cvsroot/mcclim/Apps/Listener/dev-commands.lisp 2008/10/23 20:54:53 1.64 @@ -681,6 +681,7 @@ #+openmcl-partial-mop (openmcl-mop:specializer-direct-generic-functions specializer) #+scl (clos:specializer-direct-generic-functions specializer) + #+allegro (mop:specializer-direct-generic-functions specializer) #-(or PCL SBCL scl clisp openmcl-partial-mop) (error "Sorry, not supported in your CL implementation. See the function X-SPECIALIZER-DIRECT-GENERIC-FUNCTION --- /project/mcclim/cvsroot/mcclim/Apps/Listener/util.lisp 2008/10/22 23:58:12 1.27 +++ /project/mcclim/cvsroot/mcclim/Apps/Listener/util.lisp 2008/10/23 20:54:54 1.28 @@ -31,7 +31,7 @@
(defun directoryp (path) "Determine if PATH designates a directory" - #+allegro (excl:file-directory-p pathname) + #+allegro (excl:file-directory-p path) #-allegro (flet ((f (x) (if (eq x :unspecific) nil x))) (if (or (f (pathname-name path))