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)