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
_______________________________________________
parenscript-devel mailing list
[email protected]
http://lists.common-lisp.net/cgi-bin/mailman/listinfo/parenscript-devel
