anchor.diff:  	     (define-ajax table/remove (thing))
   	     (define-ajax table/move (thing x y z rot))
   	     ;; TODO table/take
  +	     ;; TODO table/attach
   
   	     ;;; Stack-related actions
   	     (define-ajax table/stack/play-top-card (stack face x y z rot))
  
positive.code: 	   (defun scroll-to-bottom (selector)
  	     (let ((sel ($ selector)))
  	       (chain sel (scroll-top (@ sel 0 scroll-height)))))
  
  	   (defun newline->break (message)
  	     (let ((re (new (-reg-exp #\newline :g))))
  	       (chain message (replace re "<br />"))))	   
  
negative.code: 			  (b (aref values 1))
  			  (angle (round (* (chain -math (atan2 b a)) (/ 180 pi)))))
  		     (if (< angle 0) (+ 360 angle) angle)))))
  
  	   (defun change-stack-count (stack-id by)
  	     (let ((stack-count (+ "#" stack-id " .card-count")))
  