Common Lisp HTML Generation Test

html-test.lisp

(in-package :cl-user)

(ql:quickload :cl-who)
(ql:quickload :spinneret)

(defpackage :html-test
  (:use :cl :cl-who :spinneret))

(in-package :html-test)

(defun test-html-cl-who ()
  (eval
   `(progn
        (with-html-output-to-string (string)
          ,@(loop repeat 1024
               collect `(:tr
                         ,@(loop repeat 1024
                              collect '(:td)))))
        nil)))

(defun test-html-spinneret ()
  (eval
   `(progn
      (with-output-to-string (*html*)
        (with-html
          ,@(loop repeat 1024
               collect `(:tr
                         ,@(loop repeat 1024
                              collect '(:td))))))
      nil)))