[Common Lisp] Weblocks

Weblocks は Common Lisp の Web フレームワークです。
ちょっと触った感じでは、簡単に色々のことをやってくれそうです。
また、後でいじってみますが、まずは最初のページが表示されるところまで

;; darcs get http://common-lisp.net/project/cl-weblocks/darcs/cl-weblocks
;;(require :asdf-install)
;;(loop for i in '(:closer-mop :metatilities :hunchentoot :cl-who :cl-ppcre :cl-json :puri :rt :tinaa :md5 :cl-fad :fare-matcher) do (asdf-install:install i))

(eval-when (:load-toplevel :compile-toplevel :execute)
  (loop for path in '(#p"scripts/" #p"src/" #p"test/")
     do (pushnew (merge-pathnames
                  path #p"/Users/ancient/letter/lisp/weblocks/cl-weblocks/")
                 asdf:*central-registry* :test #'equal))
  (require :weblocks))

(weblocks:start-weblocks)

(weblocks:defwebapp 'our-application)

(defun init-user-session (comp)
  (setf (weblocks:composite-widgets comp)
        (list "あいう")))

(weblocks:reset-sessions)

asdf:*central-registry* へのパス追加も eval-when の中でやらなければだめでした。