[mcclim-cvs] CVS mcclim/Apps/Listener

[ahefner]

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