anchor.diff:  	 (session-id (second (assoc "session-id" q :test #'string=)))
   	 (title (second (assoc "title" q :test #'string=)))
   	 (post (second (assoc "post" q :test #'string=))))
  -    (format t "~s~%" (list *query* q session-id title post))
       (let ((login-info (check-login session-id)))
         (if (and login-info title post)	
   	  (let* ((author (login-info-author login-info))
  
positive.code: 				 (ps:create "session-id" session-id
  					    "title" title
  					    "post" text))
  				((data textatus qxhr)
  				 (js-link "/blog/" "div#blog")
  				 (js-link "/posts/index.html" "div#index")
  				 )))))
  
  	     (:B "Not Much Here")		   
  	     :br
  
negative.code: 			      (:b "ymacs disclaimer blah")))
  		  (:script :src "/test2.js")))))|#
  
  (defhandler (blog get ("last_post")) (:|content| "application/json")
      (reply *most-recent-post*))
  
  (defhandler (blog get ()) (:|html|)
    (reply 
     (cl-who:with-html-output-to-string (var)
       (:html (:head (:title "Jon Feed")
  		   (:link :rel "stylesheet" :href "/blog.css"))
  	    (:body 
  	     (:h1 "JonFeed")
  	     (:h4 "For all your Jon News")
  	     (:div :id "user")
  	     (:div :id "index")
  	     (:div :id "blog")
  	     (:script :src "/jquery.min.js")
  	     (let ((link (format nil "/posts/~a.html" *most-recent-post*)))
  	       (cl-who:htm
  		(:script :type "text/javascript"
  			 (cl-who:str (ps:ps* `(defun get-init-post ()
  						(js-link ,link "div#blog"))))
  			 (cl-who:str 
  			  (ps:ps 
  			    (ps:chain 
  			     ($ document) 
  			     (ready
  			      (lambda ()
  				(get-init-post)
  				(check-last-post)
  				(poll-index))))
  
  			    (defun check-last-post ()
  			      ($.get "/blog/last_post"  
  				     (ps:create)
  				     (lambda (server-id)
  				       (let ((this-id (ps:chain ($ "input#latest") (val))))
  					 (unless (equal this-id server-id)
  					   ($.get "/posts/index.html"
  						  (ps:create)
  						  (lambda (data)
  						    (ps:chain 
  						     ($ "div#index")
  						     (html data)))))))))
  			     
  			    (defun poll-index ()
  			      (ps:var timer (set-interval "checkLastPost()" 30000))))))
  		(: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"))))))))
  
  (defhandler (blog get ("post")) (:|html|)
    (reply (cl-who:with-html-output-to-string (var)
  