projects
/
lml2.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
b3c9c7b
)
r5439: *** empty log message ***
author
Kevin M. Rosenberg
<kevin@rosenberg.net>
Sat, 2 Aug 2003 10:03:10 +0000
(10:03 +0000)
committer
Kevin M. Rosenberg
<kevin@rosenberg.net>
Sat, 2 Aug 2003 10:03:10 +0000
(10:03 +0000)
htmlgen.lisp
patch
|
blob
|
history
diff --git
a/htmlgen.lisp
b/htmlgen.lisp
index 8f84664ed95e0723f6a87f9ff2d3a08702c087f4..710b3681532ab70b2301981ca229e74f30d76a4c 100644
(file)
--- a/
htmlgen.lisp
+++ b/
htmlgen.lisp
@@
-1,6
+1,6
@@
;; -*- mode: common-lisp; package: lml2 -*-
;;
;; -*- mode: common-lisp; package: lml2 -*-
;;
-;; $Id: htmlgen.lisp,v 1.2
0 2003/08/02 10:02:51
kevin Exp $
+;; $Id: htmlgen.lisp,v 1.2
1 2003/08/02 10:03:10
kevin Exp $
;;
;; copyright (c) 1986-2000 Franz Inc, Berkeley, CA
;; copyright (c) 2003 Kevin Rosenberg
;;
;; copyright (c) 1986-2000 Franz Inc, Berkeley, CA
;; copyright (c) 2003 Kevin Rosenberg
@@
-817,17
+817,17
@@
(write-string "<script language=\"JavaScript\" type=\"text/javascript\">" *html-stream*)
(write-string "<script type=\"text/javascript\">" *html-stream*)
(write-char #\newline *html-stream*)
(write-string "<script language=\"JavaScript\" type=\"text/javascript\">" *html-stream*)
(write-string "<script type=\"text/javascript\">" *html-stream*)
(write-char #\newline *html-stream*)
- (write-string "//![CDATA[" *html-stream*)
+ (write-string "//
<
![CDATA[" *html-stream*)
(write-char #\newline *html-stream*)
(html ,@body)
(write-char #\newline *html-stream*)
(write-char #\newline *html-stream*)
(html ,@body)
(write-char #\newline *html-stream*)
- (write-string "//]]>" *html-stream*)
+ (write-string "//
]]>" *html-stream*)
(write-char #\newline *html-stream*)
(write-string "</script>" *html-stream*))))
(named-function html-comment-print-function
(lambda (ent cmd args form subst unknown stream)
(declare (ignore ent cmd args subst unknown))
(write-char #\newline *html-stream*)
(write-string "</script>" *html-stream*))))
(named-function html-comment-print-function
(lambda (ent cmd args form subst unknown stream)
(declare (ignore ent cmd args subst unknown))
- (format stream "<script language=\"JavaScript\" type=\"text/javascript\">~%//
![CDATA[~%~A~%//
]]>~%</script>"
+ (format stream "<script language=\"JavaScript\" type=\"text/javascript\">~%//
<![CDATA[~%~A~%//
]]>~%</script>"
(cadr form)))))
(def-special-html :nbsp
(cadr form)))))
(def-special-html :nbsp