Example 2

This is example number 2 from Generating HTML with Lisp & Templates. It's generated by a Lisp CGI program using the HTML template library developed in that article.

The time now, generated by some Lisp code, is (princ (yyyymmdd-hhmmss) strm) .

The universal time (a.k.a. epoch time) is (format strm "~D" (get-universal-time)) .

Here is a list of pairs.

(format strm "~:{~&
1. ~A, (~A & ~A)
~}" '((matched green blue) (complimentary rain tea) (synonymous sour savory) (dark black lace) (loved-by-me flcl boogiepop) (odd checked geese) (conflicted republican intelligent)))

Here's an experiment in GUID-making.

(dotimes (i 10) (format strm "~{~&
• ~C~C~C~C~C~C~C~C-~C~C~C~C-~C~C~C~C-~C~C~C~C-~C~C~C~C~C~C~C~C~C~C~C~C
~}" (coerce (format nil "~32,'0X" (random (expt 2 128))) 'list)))

Sleeping for a few seconds, which you normally would never do in a web page. (dotimes (i 7) (format strm "...~D" i) (finish-output strm) (sleep 1))

The universal time (a.k.a. epoch time) is (format strm "~D" (get-universal-time)) .

End.