anchor.diff:    :end
       Coordinate. A cons cell containing the x and y coordinates of the lower
       right corner of the clipping rectangle."
  -  `(clip
  +  `(:clip
       ,@(when start (list :start start))
       ,@(when end (list :end end))))
   
   (defun reset-clip ()
     "Generates a Gypsum drawing primitive to reset the clipping region."
  -  '(reset-clip))
  +  '(:reset-clip))
   
   (defun reset ()
  -  '(reset))
  +  '(:reset))
   
   (defun draw-dialog (x y width height title)
     "Draws a dialog to Gypsum's display."
  
positive.code:                       :auto-close t))
  
  (defun connect (method &key
                           (device "/dev/rfcomm")
                           (host "localhost")
                           (port 8888))
    "Connects to a Gypsum server. Method must be one of :TCP or :RFCOMM. If
  
negative.code: (defun commit ()
    "Generates a Gypsum drawing primitive to commit the existing batched
  primitives to the screen."
    '(: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.
  