Hi.

Why doesn't this piece of code work ?

(defpackage test-x (:use :cl :hunchentoot :cl-who :parenscript))
(in-package test-x)

(setf *js-string-delimiter* #\")

(defun index ()
(with-html-output-to-string (*standard-output* nil)
    (:html
     (:head
      (:script :type "texr/javascript"
       (str (ps
             (defun al ()
               (alert))))))
     (:body
      (:h2 "clijlkjlkjclk" :onclick (ps (al ())))))))

(push (create-prefix-dispatcher "/index" 'index) *dispatch-table*)

(start (make-instance 'easy-acceptor))

Thanks