anchor.diff:  	    (: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)))
  +	 (let* ((post (car (member-if (lambda (e) (eql (id e) id)) *blog-posts*)))
   		(subject (subject post))
   		(taglist (tags post))
   		(text (post post))
  
positive.code: 
  	 (let ((postlist (if tags
  			     (posts-by-tags tags)
  			     blog-posts)))
  	   (htm (:body (:h2 "Blog posts")
  		       (:ul
  			(dolist (post postlist)
  
negative.code:   (< (id fst) (id snd)))
  
  (defmacro defblogpost (id subject post &optional tags)
    "Create new blog post inside *blog-posts* with ID, POST and TAGS"
    `(setf *blog-posts*
  	 (merge 'list
  		*blog-posts*
  		(list (make-instance 'blog-post :id ,id
  				     :subject ,subject
  				     :post (lambda ()
  