[parenscript-devel] piece of code

[Haris Bogdanovich]

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

-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/parenscript-devel/attachments/20120421/5706cde5/attachment.html>