anchor.diff:  	     :do (htm (:h1 :class "page-title" (str ?title))
   		      (:div :class "content" (str ?body))
   		      (:hr)
  -		      (let ((prev (- ?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))))))))))
  +		      (prev+next-links ?id)))))
   
   (define-closing-handler (article) ((name :string))
     (aif (for-all (and (?id :file name) (?id :title ?title) (?id :body ?body)) 
  
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: 		:collect (page ((str ?title) :section "blog")
  			   (str ?body)
  			   (:hr)
  			   (prev+next-links ?id)))
         (first it)
         (page ((fmt "Not found: ~s" name) :section "blog"))))
  
  