anchor.diff:      session))
   
   (defun get-session! (token)
  -  (let ((session (gethash token *sessions*)))
  -    (setf (last-poked session) (get-universal-time))
  -    session))
  +  (awhen (gethash token *sessions*)
  +    (setf (last-poked it) (get-universal-time))
  +    it))
   
   (defmethod lookup (key (hash hash-table))
     (gethash key hash))
  
positive.code: 			     (remhash ready conns)
  			     (remhash ready buffers)
  			     (handle-request ready (parse buf)))))))
        (loop for c being the hash-keys of conns
  	 do (loop while (socket-close c))))))
  
  (defmethod buffer! (stream (buffer buffer))
    (loop for char = (read-char-no-hang stream nil :eof)
  
negative.code:   (values))
  
  (defmethod handle-request ((sock usocket) (req request))
    (aif (lookup (resource req) *handlers*)
         (let ((res (funcall it (get-session! (session-token req))
  			   (get-params req) 
  			   (when (typep req 'http-post) (post-params req)))))
  	 (write! res sock)
  	 (force-output (socket-stream sock))
  	 (socket-close sock))))
  
  (defmethod write! ((res response) (stream stream))
    (flet ((write-ln (&rest strings)
  	   (mapc (lambda (str) (write-string str stream)) strings)
  	   (crlf stream)))
      (write-ln "HTTP/1.1 " (response-code res))  
      (write-ln "Content-Type: " (content-type res) "; charset=" (charset res))
      (write-ln "Cache-Control: no-cache, no-store, must-revalidate")
      (when (keep-alive? res) 
  