[beirc-cvs] CVS beirc

[afuchs]

Update of /project/beirc/cvsroot/beirc
In directory clnet:/tmp/cvs-serv17394

Modified Files:
	application.lisp 
Log Message:
Fix com-browse-url for ACL compatibility. Patch by Richard P. Goldman.


--- /project/beirc/cvsroot/beirc/application.lisp	2006/03/16 00:01:46	1.54
+++ /project/beirc/cvsroot/beirc/application.lisp	2006/03/16 00:12:05	1.55
@@ -593,8 +593,17 @@
 
 (define-beirc-command (com-browse-url :name t) ((url 'url :prompt "url"))
   (handler-case
+      ;; this is probably not ENTIRELY The Right Thing for Allegro.  I
+      ;; think for Allegro it would be handy to keep the process-id
+      ;; around so that we can call the reap-os-subprocesses
+      ;; function...  Not sure how to do this. [2006/03/14:rpg]
+      ;; actually, this is true for all of these invocations. doesn't
+      ;; bite us in sbcl, though. [2006/03/15:asf]
+      #+allegro (excl:run-shell-command (format nil "~A ~A" *default-web-browser* url) :wait nil)      
       #+sbcl (sb-ext:run-program *default-web-browser* `(,url) :wait nil)
       #+openmcl (ccl:run-program *default-web-browser* `(,url) :wait nil)
+      #-(or sbcl openmcl allegro) (progn (format *debug-io* "Can't figure out how to browse to url ~A~%" url)
+                                         (beep))
     #+sbcl (simple-error (e) (format t "~a" e))))
 
 (define-presentation-to-command-translator nickname-to-ignore-translator