[beirc-cvs] CVS beirc
rgoldman
rgoldman at common-lisp.net
Mon Apr 3 17:32:37 UTC 2006
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)
More information about the Beirc-cvs
mailing list