anchor.diff:    (< (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
  +  "Create new blog post inside *blog-posts* with ID, POST and TAGS"
  +  `(setf *blog-posts*
   	 (merge 'list
  -		blog-posts
  +		*blog-posts*
   		(list (make-instance 'blog-post :id ,id
   				     :subject ,subject
   				     :post (lambda ()
  
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 ((postlist (if tags
  			     (posts-by-tags tags)
  			     *blog-posts*)))
  	   (htm (:body (:h2 "Blog posts")
  		       (:ul
  			(dolist (post postlist)
  