anchor.diff:  (def-nxt-command get-firmware-version #x01 #x88)
   (def-nxt-command get-device-info      #x01 #x9b)
   (def-nxt-command find-first           #x01 #x86 file-name (string 2 21))
  -(def-nxt-command find-next            #x01 #x87 handle    (byte 2))
  -(def-nxt-command nxt-close                #x01 #x84 handle     (byte 2))
  -
  -
  -;; (def-nxt-command get-input-values     #x00 #x07 port       (byte 2))
  -;; (def-nxt-command get-output-state     #x00 #x06 port       (byte 2))
  +(def-nxt-command find-next            #x01 #x87 handle    (ubyte 2))
  +(def-nxt-command nxt-close                #x01 #x84 handle     (ubyte 2))
  +
  +
  +;; (def-nxt-command get-input-values     #x00 #x07 port       (ubyte 2))
  +;; (def-nxt-command get-output-state     #x00 #x06 port       (ubyte 2))
   ;; (def-nxt-command get-battery-level    #x00 #x0b)
   ;; (def-nxt-command stop-sound-playback  #x00 #x0c)
  -;; (def-nxt-command set-input-mode       #x00 #x05 port       (byte 2) 
  -;; 		 sensor-type          (byte 3)  sensor-mode (byte 4))
  +;; (def-nxt-command set-input-mode       #x00 #x05 port       (ubyte 2) 
  +;; 		 sensor-type          (ubyte 3)  sensor-mode (ubyte 4))
   ;; (def-nxt-command message-read         #x00 #x13 
  -;; 		 remote-inbox         (byte 2)  local-inbox (byte 3) remove (byte 4))
  +;; 		 remote-inbox         (ubyte 2)  local-inbox (ubyte 3) remove (ubyte 4))
   
   ;; (def-nxt-command get-device-info      #x01 #x9b)
   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   ;;; HELPER FUNCTIONS TO BUILD THE COMMAND
   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  -(defun write-byte-to-command (vector value location)
  +(defun write-ubyte-to-command (vector value location)
     (assert (arrayp vector) (vector) "First argument should be a vector!")
     (setf (aref vector location) value))
   
  -(defun read-byte-from-reply (vector location)
  +(defun read-ubyte-from-reply (vector location)
     (assert (arrayp vector) (vector) "First argument should be a vector!")
     (aref vector location))
   
  
positive.code: ;; MODULES
  ;;;
  (def-nxt-command request-first-module    #x01 #x90 resource-name (string 2 21))
  (def-reply-package #x90 handle (byte 3) module-name (string 4 23)
  		   module-id (ulong 24)
  		   module-size (ulong 28)
  		   io-map-size (uword 32))
  
  (def-nxt-command request-next-module #x01 #x91 handle (byte 2))
  (def-reply-package #x91 handle (byte 3) module-name (string 4 23)
  		   module-id (ulong 24)
  		   module-size (ulong 28)
  		   io-map-size (uword 32))
  
  (def-nxt-command close-module-handle #x01 #x92 handle (byte 2))
  (def-reply-package #x92 handle (byte 3))
  
  ;;;;
  ;; DIRECT COMMANDS
  
negative.code: with a type specifier.  Type specifiers are lists of the form (`type' `position' rest).
  The type is one of 
  
    ubyte
    uword
    string  - has additional parameter, `final-position'.
  
  