anchor.diff:  	      (byte `(write-byte-to-command data-vector ,key ,(second spec)))
   	      (string `(write-string-to-command data-vector ,key ,(second spec) ,(third spec)))
   	      (uword `(write-uword-to-command data-vector ,key ,(second spec)))
  -	      (t "Help"))))
  +	      (t (error "Unknow type ~S in specification" (type-of-spec spec))))))
   	(write-to-nxt data-vector)
   	,(when (reply-expected-for-type-code type-code)
  -	       '(read-nxt-reply))))))
  +	       '(let ((reply (read-nxt-reply)))
  +		 (parse-nxt-reply (aref reply 1) reply)))))))
   
   (defmacro def-nxt-command (name name-code type-code &rest rest)
     (apply #'create-nxt-command-form name name-code type-code rest))
  
positive.code: ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;; LEFT OVER FROM OLD CODE
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  (defun send-to-nxt (command)
    "Write command to nxt and read reply if a reply is expected."
    (write-to-nxt command)
    (when (reply-expected command)
      (read-nxt-reply)))
  
  (defun reply-expected (command)
    "Returns T if a reply is expected.
  A reply is expected if the bit in position 7 (MSB) is 0"
    (eql 0 (ldb (byte 1 7) (aref command 0))))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;; PARSING OUTPUT ???
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  
  (defun dump-message (message)
    (loop :for x :across message 
  
negative.code: 
  (defun handle (reply)
    (aref reply 3))
  
  
  
  ;;;;;;;;; Higher level functions
  
  (defun find-all-files ()
    (loop 
       :for reply = (find-first :file-name "*.*") 
       :then (find-next :handle (value-of 'handle reply))
       :while (= (value-of 'status reply) 0)
       :collect (value-of 'file-name reply)
       :finally (nxt-close :handle (value-of 'handle reply))))
       
  (defun find-all-modules ()
    (loop 
       :for reply = (request-first-module :resource-name "*.*") 
       :then (request-next-module :handle (value-of 'handle reply))
       :while (= (value-of 'status reply) 0)
       :collect reply
       :finally (close-module-handle :handle (value-of 'handle reply))))
       