anchor.diff:  (defun commit ()
     "Generates a Gypsum drawing primitive to commit the existing batched
   primitives to the screen."
  -  '(commit))
  +  '(:commit))
   
   (defun text (&key text start font size color (filled nil filled-supplied-p))
     "Generates a Gypsum drawing primitive to draw text with the given parameters.
  
positive.code: (in-package :cl-gypsum-client)
  
  (export '(connect
            disconnect
            with-gypsum-context
            box
            text
  
negative.code:                       :auto-close t))
  
  (defun connect (method &key
                           (device "/dev/rfcomm0")
                           (host "localhost")
                           (port 8888))
    "Connects to a Gypsum server. Method must be one of :TCP or :RFCOMM. If
  