anchor.diff:                            :url (format nil "/blog/post/~A" (post-id (post-by-id id))))
                       post-list)))))
       
  -
   (defroute ("/blog/post/([\\d]+)" :regexp t) (&key captures)
     (let ((id (parse-integer (first captures))))
       (if (eq (post-by-id id) nil)
  
positive.code:   (merge-pathnames file-path *template-directory*))
  
  (defun absolute-directory (directory-path)
    (directory (absolute-path directory-path)))
  
  (defparameter *time-format* '((:year 4) #\- (:month 2) #\- (:day 2)))
  (defun format-date (date)
  
negative.code:       (render-post (post-by-id (first captures))))))
  
  (defroute "/jazz" ()
    (let ((images (root-directory "static/images/Night/*.jpg"))
  		(songs (root-directory "static/music/Jazz/*.ogg")))
  	(render (absolute-path "jazz.html")
    			(list :image (enough-namestring (nth (random (list-length images)) images)
  											*static-directory*)
  