anchor.diff:  	 (make-instance 'weblog-entry :title title :body body :tags tags)))
       (process-weblog-entry entry)
       entry))
  -
  -;;(defun format-weblog-entry (entry)
  -;;  (markup:markup (:div 
  -    
  -    
   
   (defun css-page ()
     (define-easy-handler (css :uri "/css") ()
  
positive.code: 	     (:head
  	      (:title "nydel.sdf.org")
  	      (:link :rel "stylesheet" :type "text/css" :href "http://nydel.sdf.org:9903/css")
  	      (:link :rel "shortcut icon" :type "text/png" :href "http://floss.zoomquiet.io/data/20111102224152/lisp_logo_mid.png"))
  	     (:body
  	      (:div :id "mainContainer"
  		    (:h3 "nydel.sdf.org")
  
negative.code:    (tags :accessor tags
  	 :initarg :tags)))
  
  (defun without-markup (string)
    (ppcre:regex-replace-all ">" 
    (ppcre:regex-replace-all "<" string "&lt;")
  