anchor.diff:  
   (in-package :cl-sdf-home)
   
  +;(defvar *api-key* "Myl1xO0nbDWpnKYZ7e5m9PPYR")
  +;(defvar *api-secret* "OxiJRNcGQZCE9ZWviT5IhudZf00eDLFqkg3Ub2Z0wTqGW2m1dp")
  +;(defvar *oauth-api-key* "Myl1xO0nbDWpnKYZ7e5m9PPYR")
  +;(defvar *oauth-api-secret* "OxiJRNcGQZCE9ZWviT5IhudZf00eDLFqkg3Ub2Z0wTqGW2m1dp")
  +;(defvar *oauth-access-token* "21594973-5HIS3sIDi1Xb3ly6WpgG2BGcrpKcHwAZI5M04KAMH")
  +;(defvar *oauth-access-secret* "c17j8yMW6WsxTFMx4ROBs9dceznDbzRdIdDq56FTavWX8")
  +
  +;(defun fun1 ()
  +;  (chirp:initiate-authentication
  +;   :api-key *api-key*
  +;   :api-secret *api-secret*))
  +
  +;(defun set-all-chirp-stuff ()
  +;  (setf chirp:*oauth-api-key* *oauth-api-key*)
  +;  (setf chirp:*oauth-api-secret* *oauth-api-secret*)
  +;  (setf chirp:*oauth-access-token* *oauth-access-token*)
  +;  (setf chirp:*oauth-access-secret* *oauth-access-secret*))
  +
  +;(defun set-chirp-credentials ()
  +;  (set-all-chirp-stuff)
  +;  (chirp:account/verify-credentials :include-entities t))
  +
   (defvar *master-port* 9903)
   
   (defvar *master-acceptor*
  
positive.code: 			    :color "#111111"
  			    :padding "0"
  			    :margin "0"))
  			   (("div#mainContainer")
  			    (:margin-left "auto"
  		             :margin-right "auto"
  			     :width "60%"))
  			   (("hr.thin")
  			    (:border "1px solid #000000"
  			     :border-top "0"
  
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)))
  