anchor.diff:                        :auto-close t))
   
   (defun connect (method &key
  -                         (device "/dev/rfcomm")
  +                         (device "/dev/rfcomm0")
                            (host "localhost")
                            (port 8888))
     "Connects to a Gypsum server. Method must be one of :TCP or :RFCOMM. If
  
positive.code: serialized via an encapsulated write lock to prevent contexts from overwriting
  one another, so calls should be made as short as possible."
    `(with-mutex (*write-lock*)
       (draw-it *command-stream* ,@body)))
  
  (defun box (&key start end (filled nil filled-supplied-p) color)
    "Generates a Gypsum drawing primitive to draw a box with the given parameters.
  
negative.code: 
    :color
      A color string. Either HTML-style #RRGGBB or #AARRGGBB, or a color name."
    `(:text
      ,@(when text (list :text text))
      ,@(when start (list :start start))
      ,@(when font (list :font font))
  