anchor.diff:    (push sock (gethash channel *channels*)))
   
   (defmethod publish! ((channel symbol) (message string))
  -  (setf (gethash channel *channels*)
  -	(loop for sock in (gethash channel *channels*)
  +  (setf (lookup channel *channels*)
  +	(loop for sock in (lookup channel *channels*)
   	   when (ignore-errors
   		  (let ((s (socket-stream sock)))
   		    (write-string "data: " s)
  
positive.code:   (write! msg (socket-stream sock)))
  
  ;;;;; Defining Handlers
  (defmacro define-handler (name &body body)
    (let ((uri (format nil "/~(~a~)" name)))
      `(progn
         (awhen (gethash ,uri *handlers*)
  	 (warn ,(format nil "Redefining handler '~a'" uri)))
         (setf (gethash ,uri *handlers*)
  	     (lambda (session parameters)
  	       (declare (ignorable session parameters))
  	       (make-instance 'response :body (progn ,@body)))))))
  
  (define-handler index.html
    "<html><head><title>Test Page</title></head><body><h1>Hello from House!</h1></body></html>")
  
negative.code: (defmethod handle-request ((sock usocket) (req request))
    (aif (lookup (resource req) *handlers*)
         (let* ((check? (aand (session-token req) (get-session! it)))
  	      (sess (aif check? it (new-session!))))
  	 (funcall it sock check? sess (parameters req)))
         (progn
  	 (write!
  	  (make-instance 
  