[Need to escape #\' in javascript strings
Marco Baringer <mb@bese.it>**20051005090942] hunk ./js.lisp 386
-  (list (format nil "'~A'" (value string))))
+  (list (with-output-to-string (escaped)
+          (loop
+             initially (write-char #\' escaped)
+             for char across (value string)
+             if (char= #\' char)
+               do (write-string "\\'" escaped)
+             else
+               do (write-char char escaped)
+             finally (write-char #\' escaped)))))