anchor.diff:  
   (defparameter *posts-directory* (pathname (concatenate 'string (directory-namestring (truename ".")) "/posts/*.pst")))
   (defvar *post-headers* nil)
  -(setf *yaws-server-node-name* "jon-desktop")
  -(setf *cookie-file* "/home/jon/Dropbox/Lisp-on-Yaws/COOKIE")
  +(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)  
  
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: 		       (cl-who:htm 
  			(:li 
  			 (named-link var link "div#blog" title)))))))
  	   (:input :type "hidden" :id "latest" :name "latest" :value (cl-who:str *most-recent-post*)))))
      (send-static-page "posts" "index.html" index-page)
      
      nil))
  
  (defparameter *salt* "PASSWORD")
  (defvar *password-hash* (make-hash-table :test #'equalp))
  