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: (defun pull-page (string)
    (let ((cell (assoc string *pages* :test #'string-equal)))
      (cdr cell)))
  
  (defun css-page ()
    (define-easy-handler (css :uri "/css") ()
  
negative.code: 			     :border-left "0"
  			     :margin "0px"
  			     :padding "0px"))))))
  
  ;(defun get-chirp-home ()
  ;  (set-chirp-credentials)
  ;  (let ((timeline
  ;	 (chirp:statuses/home-timeline))) ;:screen-name "joshuatrout")))
  ;    (loop for i in timeline collect
  ;	 (let* ((user (chirp:user i))
  ;		(screen-name (chirp:screen-name user))
  ;		(real-name (chirp:name user))
  ;;		(userid (chirp:id user))
  ;		(time (chirp:created-at i)))
  ;	 (concatenate 'string
  ;		      "<p class='tweettime'>"
  ;		      (write-to-string time)
  ;		      "</p>"
  ;		      "<p class='tweetuser'>"
  ;		      "by " screen-name " (" real-name ")"
  ;		      "</p>"
  ;		      "<p class='tweet'>"
  ;		      (chirp:text-with-markup i)
  ;		      "</p>")))))
  
  (defun test-page ()
    (define-easy-handler (index :uri "/") ()
  