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