anchor.diff:    (merge-pathnames file-path *template-directory*))
   
   (defun absolute-directory (directory-path)
  -  (directory (absolute-path directory-path)))
  +  (directory (absolute-path directory-path))) 
  +
  +(defun root-path (file-path)
  +  (merge-pathnames file-path *application-root*))
  +
  +(defun root-directory (directory-path)
  +  (directory (root-path directory-path)))
   
   (defparameter *time-format* '((:year 4) #\- (:month 2) #\- (:day 2)))
   (defun format-date (date)
  
positive.code:       (render-post (post-by-id (first captures))))))
  
  (defroute "/jazz" ()
    (let ((images (directory (merge-pathnames "static/images/Night/*.jpg" *application-root*)))
  		(songs (directory (merge-pathnames "static/music/Jazz/*.ogg" *application-root*))))
  	(render (absolute-path "jazz.html")
    			(list :image (enough-namestring (nth (random (list-length images)) images)
  											*static-directory*)
  
negative.code:                           :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)
  