[mcclim-devel] Two listener fixes for Allegro

[Willem Broekema]

--- Apps/Listener/util.lisp	22 Oct 2008 23:58:12 -0000	1.27
+++ Apps/Listener/util.lisp	23 Oct 2008 19:47:38 -0000
@@ -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))


--- Apps/Listener/dev-commands.lisp	22 Oct 2008 23:58:12 -0000	1.63
+++ Apps/Listener/dev-commands.lisp	23 Oct 2008 19:48:48 -0000
@@ -681,10 +681,9 @@
   #+openmcl-partial-mop
   (openmcl-mop:specializer-direct-generic-functions specializer)
   #+scl (clos: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
-if you are interested in fixing this."))
+  #+allegro (mop:specializer-direct-generic-functions specializer)
+  #-(or PCL SBCL scl clisp openmcl-partial-mop allegro)
+  (error "Sorry, not supported in your CL implementation. See the
function X-SPECIALIZER-DIRECT-GENERIC-FUNCTION if you are interested
in fixing this."))

 (defun class-funcs (class)
   (remove-duplicates