- `(progn (write-string "<script language=\"JavasSript\" type=\"text/javascript\">"
- *html-stream*)
- (html ,@body)
- (write-string "</script>" *html-stream*))))
+ `(progn
+ (write-string "<script language=\"JavasSript\" type=\"text/javascript\">" *html-stream*)
+ (write-char #\newline *html-stream*)
+ (write-string "//![CDATA[" *html-stream*)
+ (write-char #\newline *html-stream*)
+ (html ,@body)
+ (write-char #\newline *html-stream*)
+ (write-string "//]]>" *html-stream*)
+ (write-char #\newline *html-stream*)
+ (write-string "</script>" *html-stream*))))