anchor.diff:  				 (ps:create "session-id" session-id
   					    "title" title
   					    "post" text))
  -				((data textatus qxhr)
  +				((data textstatus qxhr)
   				 (js-link "/blog/" "div#blog")
  -				 (js-link "/posts/index.html" "div#index")
  -				 )))))
  +				 (js-link "/posts/index.html" "div#index"))))))
   
   	     (:B "Not Much Here")		   
   	     :br
  
positive.code: 			      (:b "ymacs disclaimer blah")))
  		  (:script :src "/test2.js")))))|#
  
  (defhandler (blog get ("last_post")) (:|content| "text/html")
      (reply *most-recent-post*))
  
  (defhandler (blog get ()) (:|html|)
    (reply 
     (cl-who:with-html-output-to-string (var)
       (:html (:head (:title "Jon's Blog")
  		   (:link :rel "stylesheet" :href "/blog.css"))
  	    (:body 
  	     (:h1 "Jon's Blog")
  	     (:div :id "user")
  	     (:div :id "index")
  	     (:div :id "blog")
  	     (:script :src "/jquery.min.js")
  	     (:script :type "text/javascript"
  		      (cl-who:str 
  		       (ps:ps 
  			 (ps:chain 
  			  ($ document) 
  			  (ready
  			   (lambda ()
  			     (check-last-post)
  			     (poll-index))))
  
  			 (defun check-last-post ()
  			   (let ((this-id (ps:chain ($ "input#latest") (val)))
  				 (server-id ($.get "/blog/last_post")))
  			     ;(alert this-id)
  			     ;(alert server-id)
  			     (unless (eql this-id server-id)
  			       ($.get "/posts/index.html"
  				      (ps:create)
  				      (lambda (data)
  					(ps:chain ($ "div#index")
  						  (html data))))
  			       (ps:chain ($ "input#latest") (val server-id)))))
  			     
  			 (defun poll-index ()
  			   (ps:var timer (set-interval "checkLastPost()" 3000))))))
  	     (:div :id "footer"
  		   (named-link var "/blog/register/" "div#blog" "Register") :br
  		   (named-link var "/blog/post/" "div#blog" "Add A Post") :br
  		   (named-link var "/blog/chat/" "div#blog" "Chat") :br
  		   (named-link var "/blog/login/" "div#blog" "Login"))
  	     (:input :type "hidden" :id "session-id" :name "session-id")
  	     (:input :type "hidden" :id "latest" :name "latest")
  	     )))))
  
  (defhandler (blog get ("post")) (:|html|)
    (reply (cl-who:with-html-output-to-string (var)
  
negative.code: 
  (defparameter *posts-directory* (pathname (concatenate 'string (directory-namestring (truename ".")) "/posts/*.pst")))
  (defvar *post-headers* nil)
  (setf *yaws-server-node-name* "jon-VirtualBox")
  (setf *cookie-file* "/home/jon/Lisp-On-Yaws/COOKIE")
  
  (defun timestamp ()
    (multiple-value-bind (second minute hour date month year)  
  