Update of /project/mcclim/cvsroot/mcclim/Apps/Listener In directory clnet:/tmp/cvs-serv22114/Apps/Listener
Modified Files: listener.lisp Log Message: Added hack to make Listener run in CLISP. We need something like CL-FAD to make it be really good.
--- /project/mcclim/cvsroot/mcclim/Apps/Listener/listener.lisp 2007/01/04 09:20:58 1.32 +++ /project/mcclim/cvsroot/mcclim/Apps/Listener/listener.lisp 2007/01/14 14:53:54 1.33 @@ -96,7 +96,11 @@ (with-output-as-presentation (t *package* 'listener-current-package) (print-package-name t))) (cell (:center) - (when (probe-file *default-pathname-defaults*) + ;; CLISP gives us an error when calling + ;; `cl:probe-file' with a directory argument. + (when #+clisp (or (ignore-errors (ext:probe-directory *default-pathname-defaults*)) + (ignore-errors (probe-file *default-pathname-defaults*))) + #-clisp (probe-file *default-pathname-defaults*) (with-output-as-presentation (t (truename *default-pathname-defaults*) 'pathname) (format t "~A" (frob-pathname *default-pathname-defaults*)))) (when *directory-stack*