anchor.diff:  			    :color "#111111"
   			    :padding "0"
   			    :margin "0"))
  +			  (("a:link")
  +			   (:text-decoration "none"))
  +			  (("a:hover")
  +			   (:text-decoration "underline"
  +			    :color "green"))
  +			  (("a:active")
  +			   (:text-decoration "underline"
  +			    :color "darkgreen"))
  +			  (("a:visited")
  +			   (:text-decoration "none"))
   			   (("div#mainContainer")
   			    (:margin-left "auto"
   		             :margin-right "auto"
   			     :width "60%"))
  +			   (("p.tweet")
  +			    (:font-size "09pt"
  +			     :border "1px solid #666666"
  +			     :border-radius "5px 5px 5px 5px"
  +			     :padding "5px"
  +			     :margin "8px"))
  +			   (("p.tweettime")
  +			    (:font-size "06pt"
  +			     :padding "2px"
  +			     :margin "3px"))
  +			   (("p.tweetuser")
  +			    (:font-size "08pt"
  +			     :padding "3px"
  +			     :margin "4px"))
   			   (("hr.thin")
   			    (:border "1px solid #000000"
   			     :border-top "0"
  
positive.code: 			     :border-left "0"
  			     :margin "0px"
  			     :padding "0px"))))))
  
  (defun test-page ()
    (define-easy-handler (index :uri "/") ()
  
negative.code: 		    (:hr :class "thin")
  		    (:pre "welcome to nydel's home at sdf.")
  		    (:hr :class "thin")
  		    (:pre
  		     (:a :href "https://github.com/miercoledi/cl-homepage.git"
  			 "cl-homepage") " - "
  		     (:a :href ""
  			 "another link"))
  		    (:hr :class "thin")
  ;		    (get-chirp-home)
  		    (:hr :class "thin")
  ;		    (:pre :class "content" (pull-page "home"))
  		    (:hr :class "thin")
  		    (:pre "put an ad for sdf here.")))))))
  
  
  (defparameter *finished* nil)
  
  (cl-daemonize:daemonize :out "output.log"
  			:err "error.log"
  			:pid "my.pid"
  			:stop (lambda (&rest args)
  				(declare (ignore args))
  				(setf *finished* t)))
  
  (defun main ()
    (init)
    (test-page)
    (css-page))
  
  (main)
  
  (loop :do
     (sleep 1)
     (when *finished*
       (kill)
       (sb-ext:quit)))
  