[mcclim-cvs] CVS mcclim/Apps/Listener

[thenriksen]

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*