anchor.diff:  	      (ubyte `(write-ubyte-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)))
  +	      (ulong `(write-ulong-to-command data-vector ,key ,(second spec)))
   	      (t (error "Unknow type ~S in specification" (type-of-spec spec))))))
   	(write-to-nxt data-vector)
   	,(when (reply-expected-for-type-code type-code)
  
positive.code:   (setf (aref vector location) (ldb (byte 8 0) value))
    (setf (aref vector (1+ location)) (ldb (byte 8 8) value)))
  
  (defun read-uword-from-reply (vector location)
    (let ((result 0))
      (setf (ldb (byte 8 0) result) (aref vector location))
  
negative.code: ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;; Specification:
  ;;
  ;;     (ubyte position)  - byte = 8bits  (== byte)
  