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: ;;;; 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)
  