[parenscript-devel] piece of code

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