projects
/
lml2.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
0b515ed
)
r5438: *** empty log message ***
author
Kevin M. Rosenberg
<kevin@rosenberg.net>
Sat, 2 Aug 2003 10:02:51 +0000
(10:02 +0000)
committer
Kevin M. Rosenberg
<kevin@rosenberg.net>
Sat, 2 Aug 2003 10:02:51 +0000
(10:02 +0000)
htmlgen.lisp
patch
|
blob
|
history
diff --git
a/htmlgen.lisp
b/htmlgen.lisp
index 39f979f7c7c832ba067aa59cd39ec58e8f4f7d17..8f84664ed95e0723f6a87f9ff2d3a08702c087f4 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.
19 2003/07/21 18:10:00
kevin Exp $
+;; $Id: htmlgen.lisp,v 1.
20 2003/08/02 10:02:51
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
@@
-813,7
+813,9
@@
;; must use <!-- --> syntax
(declare (ignore ent args argsp))
`(progn
;; must use <!-- --> syntax
(declare (ignore ent args argsp))
`(progn
+ #+ignore
(write-string "<script language=\"JavaScript\" type=\"text/javascript\">" *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-char #\newline *html-stream*)
(write-char #\newline *html-stream*)
(write-string "//![CDATA[" *html-stream*)
(write-char #\newline *html-stream*)