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