anchor.diff:  		:collect (page ((str ?title) :section "blog")
   			   (str ?body)
   			   (:hr)
  -			   (let ((prev (- ?id 1))
  -				 (next (+ ?id 1)))
  -			     (for-all (and (prev :file ?prev) (prev :title ?title)) :in *base*
  -				      :do (htm (:a :class "prev" :href (format nil "/article?name=~a" ?prev) (fmt "<- ~a" (truncat ?title 30)))))
  -			     (for-all (and (next :file ?next) (next :title ?title)) :in *base*
  -				      :do (htm (:a :class "next" :href (format nil "/article?name=~a" ?next) (fmt "~a ->" (truncat ?title 30)))))
  -			     (htm (:br :style "clear:both;")))))
  +			   (prev+next-links ?id)))
          (first it)
          (page ((fmt "Not found: ~s" name) :section "blog"))))
   
  
positive.code: 	" implemented in another ~400 lines of the same, and the web server is a "
  	(:a :href "https://github.com/Inaimathi/house" "minimal, asynchronous system")
  	" put together in yet another ~800 lines of CL.")))
  
  (define-closing-handler (root) ()
    (page (nil :section "blog")
  
negative.code: 	     :do (htm (:h1 :class "page-title" (str ?title))
  		      (:div :class "content" (str ?body))
  		      (:hr)
  		      (prev+next-links ?id)))))
  
  (define-closing-handler (article) ((name :string))
    (aif (for-all (and (?id :file name) (?id :title ?title) (?id :body ?body)) 
  