anchor.diff:  		(:div :id "board")
   		(:div :id "player-info" :class "moveable"
   		      (:h3 (:span :class "game-id" *current-table-id*)
  -			   (@ *session* current-table tag))
  +			   (:span :class "game-tag" *current-table-tag*))
   		      (:div :class "control-row"
   			    (:span :class "player-id" (@ *session* id))
   			    (:span :class "player-tag" (@ *session* tag)))
  
positive.code: 
  (to-file "static/js/deal.js"
  	 (ps (defvar *current-table-id* nil)
  	     
  	     (defvar *handlers-list* nil)
  	     (defvar *decks-list* nil)
  
negative.code: 			 (when (< player-count max-players) (render-table-entry elem)))))
  	       (lobby/session))
  	     
  	     (define-ajax rename (new-tag)
  	       (log "CHANGED NAME" res))
  	     
  	     (define-ajax lobby/new-table (tag passphrase)
  	       (log "STARTING TABLE" res)
  	       (setf *current-table-id* (@ res :id)
  		     *current-table-tag* (@ res :tag))
  	       (show-table "body")
  	       (my-hand)
  	       (render-board res))
  
  	     (define-ajax lobby/join-table (table passphrase)
  	       (log "JOINING TABLE" res)
  	       (setf *current-table-id* (@ res :id)
  		     *current-table-tag* (@ res :tag))
  	       (show-table "body")		  
  	       (my-hand)
  	       (render-board res))
  