anchor.diff:  
   	 (let ((postlist (if tags
   			     (posts-by-tags tags)
  -			     blog-posts)))
  +			     *blog-posts*)))
   	   (htm (:body (:h2 "Blog posts")
   		       (:ul
   			(dolist (post postlist)
  
positive.code: 	    (:meta :http-equiv "Content-Type" :content "text/html; charset=utf-8")
  	    (:meta :name "viewport" :content "initial-scale=1.0,maximum-scale=1.0,width=device-width,user-scalable=0"))
       (if id
  	 (let* ((post (car (member-if (lambda (e) (eql (id e) id)) blog-posts)))
  		(subject (subject post))
  		(taglist (tags post))
  		(text (post post))
  
negative.code:   (let ((taglist (split-by-comma tags)))
      (remove-if (lambda (post)
  		 (set-difference taglist (tags post) :test #'equal))
  	       *blog-posts*)))
  
  (define-easy-handler (blog-page :uri "/blog"
  				:default-request-type :get)
  