anchor.diff:  ;;; -*- outline-regexp: ";;;;;*"; indent-tabs-mode: nil -*-
   
  +(eval-when (:compile-toplevel)
  +  (declaim (optimize (safety 3) (debug 3))))
   (defpackage :brlapi
     (:use :common-lisp :cffi)
     (:export #:connect #:disconnect
   	   #:driver-id #:driver-name #:display-size
              #:get-tty #:leave-tty
  -           #:write-text #:read-key))
  +           #:write-text #:write-dots #:write-region
  +           #:read-key #:expand-key))
   (in-package :brlapi)
   
   
positive.code:   (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)))))))
  
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)
  