<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META content="text/html; charset=iso-8859-1" http-equiv=Content-Type>
<META name=GENERATOR content="MSHTML 8.00.6001.19222">
<STYLE></STYLE>
</HEAD>
<BODY bgColor=#ffffff>
<DIV><FONT size=2 face=Arial>Hi.</FONT></DIV>
<DIV><FONT size=2 face=Arial></FONT> </DIV>
<DIV><FONT size=2 face=Arial>Why doesn't this piece of code work ?</FONT></DIV>
<DIV><FONT size=2 face=Arial></FONT> </DIV>
<DIV><FONT size=2 face=Arial></FONT> </DIV>
<DIV><FONT size=2 face=Arial>(defpackage test-x (:use :cl :hunchentoot :cl-who
:parenscript))<BR>(in-package test-x)</FONT></DIV>
<DIV><FONT size=2 face=Arial></FONT> </DIV>
<DIV><FONT size=2 face=Arial>(setf *js-string-delimiter* #\")</FONT></DIV>
<DIV><FONT size=2 face=Arial></FONT> </DIV>
<DIV><FONT size=2 face=Arial>(defun index ()<BR>
(with-html-output-to-string (*standard-output* nil)<BR>
(:html<BR> (:head<BR>
(:script :type "texr/javascript"<BR> (str
(ps<BR>
(defun al
()<BR>
(alert))))))<BR>
(:body<BR> (:h2 "clijlkjlkjclk" :onclick (ps (al
())))))))<BR>
</FONT></DIV><FONT size=2 face=Arial>
<DIV><BR>(push (create-prefix-dispatcher "/index" 'index)
*dispatch-table*)</DIV>
<DIV> </DIV>
<DIV>(start (make-instance 'easy-acceptor))</DIV>
<DIV> </DIV>
<DIV>Thanks</DIV>
<DIV> </DIV>
<DIV></FONT> </DIV></BODY></HTML>