anchor.diff:  ;;;; Library loading
   
   (define-foreign-library libbrlapi
  -  (:unix (:or "libbrlapi.so.0.4.1" "libbrlapi.so"))
  +  (:unix (:or "libbrlapi.so.0.5.0" "libbrlapi.so"))
     (t (:default "libbrlapi")))
   (use-foreign-library libbrlapi)
   
  
positive.code:   (with-foreign-object (key 'key-code)
      (case (foreign-funcall "brlapi_readKey" :boolean block :pointer key brlapi-code)
        (0 nil)
        (1 (mem-ref key 'key-code)))))
  
negative.code: 
  (defun get-tty (tty &optional how)
    (unless (stringp how) (setf how ""))
    (foreign-funcall "brlapi_enterTtyMode" :int tty :string how brlapi-code))
  
  (defcfun ("brlapi_leaveTtyMode" leave-tty) brlapi-code)
  
  
  