anchor.diff:  
   (to-file "static/js/deal.js"
   	 (ps (defvar *current-table-id* nil)
  +	     (defvar *current-table-tag* nil)
   	     
   	     (defvar *handlers-list* nil)
   	     (defvar *decks-list* nil)
  
positive.code: 			 (when (< player-count max-players) (render-table-entry elem)))))
  	       (lobby/session))
  	     
  	     (define-ajax rename (new-tag))
  	     
  	     (define-ajax lobby/new-table (tag passphrase)
  	       (log "STARTING TABLE" res)
  	       (setf *current-table-id* (@ res :id))
  	       (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))
  	       (show-table "body")		  
  	       (my-hand)
  	       (render-board res))
  
negative.code: 	     (define-ajax lobby/session ()
  	       (setf *session* res)
  	       (when (@ res current-table)
  		 (setf *current-table-id* (@ res current-table :id)
  		       *current-table-tag* (@ res current-table :tag))
  		 (show-table "body")		  
  		 (my-hand)
  		 (render-board (@ res current-table))))
  