anchor.diff:  
   ;;;; Output
   
  -(defcfun ("brlapi_writeText" write-text) brlapi-code
  -  (cursor :int)
  -  (text :string))
  +(defun write-text (text &key (cursor -1))
  +  "Write TEXT (a string) to the braille display."
  +  (declare (string text))
  +  (declare (integer cursor))
  +  (if (eql (foreign-funcall "brlapi_writeText"
  +                            :int cursor :string text
  +                            brlapi-code)
  +           0)
  +      text))
   
   (defbitfield (dots :uint8)
     (:dot1 #x01) :dot2 :dot3 :dot4 :dot5 :dot6 :dot7 :dot8)
   (defun write-dots (&rest dots-list)
  +  "Write the given dots list to the display."
     (with-foreign-object (dots 'dots (display-size))
       (loop for i below (min (display-size) (length dots-list))
             do (setf (mem-aref dots 'dots i)
  
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: ;;; -*- 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 #:write-dots #:write-region
             #:read-key #:expand-key))
  (in-package :brlapi)
  
  