anchor.diff:    (with-foreign-object (key 'key-code)
       (case (foreign-funcall "brlapi_readKey" :boolean block :pointer key brlapi-code)
         (0 nil)
  -      (1 (with-foreign-objects ((command :int) (args :int) (flags :int))
  -           (foreign-funcall "brlapi_expandKeyCode"
  -                            key-code (mem-ref key 'key-code)
  -                            :pointer command :pointer args :pointer flags
  -                            :int)
  -           (list (mem-ref command :int) (mem-ref args :int) (mem-ref flags :int)))))))
  +      (1 (mem-ref key 'key-code)))))
  +
  +(defun expand-key (keycode)
  +  (with-foreign-objects ((command :int) (arg :int) (flags :int))
  +    (foreign-funcall "brlapi_expandKeyCode"
  +                     key-code keycode
  +                     :pointer command :pointer arg :pointer flags
  +                     :int)
  +    (values (intern (foreign-funcall "brlapi_getKeyName"
  +                                     :int (mem-ref command :int)
  +                                     :int (mem-ref arg :int)
  +                                     :string))
  +            (mem-ref arg :int)
  +            (mem-ref flags :int))))
  
positive.code: ;;;; TTY acquisition
  
  (defun get-tty (tty &optional how)
    (unless (stringp how) (setf how ""))
    (foreign-funcall "brlapi_enterTtyMode" :int tty :string how brlapi-code))
  
  
negative.code: (defun driver-id ()
    (with-foreign-pointer-as-string (str 4 str-size)
      (foreign-funcall "brlapi_getDriverId"
                       :string str :int str-size
                       brlapi-code)))
  
  (defun driver-name ()
    (with-foreign-pointer-as-string (str 64 str-size)
  