anchor.diff:  	(conns (make-hash-table))
           (buffers (make-hash-table)))
       (unwind-protect
  -	 (loop (loop for ready in (wait-for-input (cons server (hash-keys conns)) :ready-only t)
  +	 (loop (loop for ready in (wait-for-input (cons server (deal::hash-keys conns)) :ready-only t)
   		  do (if (typep ready 'stream-server-usocket)
   			 (setf (gethash (socket-accept ready) conns) :on)
   			 (let ((buf (gethash ready buffers (make-instance 'buffer))))
  
positive.code:     session))
  
  (defun get-session! (token)
    (let ((session (gethash token *sessions*)))
      (setf (last-poked session) (get-universal-time))
      session))
  
  (defmethod lookup (key (hash hash-table))
    (gethash key hash))
  
negative.code:       (assert (string= http-version "HTTP/1.1"))
        (let ((req-t (intern (string-upcase req-type))))
  	(assert (member req-t (list 'get 'post)))
  	(let ((req (make-instance (intern (format nil "HTTP-~a" req-t)) :resource path)))
  	  (loop 
  	     for header in (rest lines) for (name value) = (split ": " header)
  	     for n = (deal::->keyword name)
  