[beirc-cvs] CVS beirc

[rgoldman]

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

Modified Files:
	application.lisp 
Log Message:
Quotified URLs for Allegro in COM-BROWSE-URL, since they will be
evaluated by the shell.  question marks in URLs cause breakage.


--- /project/beirc/cvsroot/beirc/application.lisp	2006/04/02 20:43:20	1.72
+++ /project/beirc/cvsroot/beirc/application.lisp	2006/04/03 17:32:37	1.73
@@ -681,7 +681,7 @@
       ;; 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)      
+      #+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)