test document

0
1
2
3
4
5
6
7
8
9

The code which produced this page:

(DEFUN HTML-TEST NIL
 (WITH-OPEN-FILE
  (X "/tmp/htmltest.html" :DIRECTION :OUTPUT :IF-DOES-NOT-EXIST :CREATE
   :IF-EXISTS :SUPERSEDE)
  (HTML (:STREAM X)
   (HEAD NIL (META :NAME "blah" :CONTENT "meept")
    (TITLE NIL "adventures of bob"))
   (BODY NIL (H1 NIL "test document")
    (P NIL
     (LET (TEMP)
      (DOTIMES (X 10 (PRINT (NREVERSE TEMP)))
       (IF (EVENP X) (PUSH (STRONG NIL X) TEMP) (PUSH (EM NIL X) TEMP))
       (PUSH (BR) TEMP))))
    (P NIL "The code which produced this page:")
    (BLOCKQUOTE NIL
     (PRE NIL (FORMAT NIL "~w" (CAADR (SYMBOL-PLIST 'HTML-TEST)))))))))