anchor.diff:      `(progn
          (setf (fp-request (ensure-frame-pair ',name ',type-code ',command-code))
   	     (parse-frame-info ',args))
  -       (defun ,name (&key (nxt *nxt*) ,@argnames)
  +       (defun ,name (&key (nxt *nxt*) (onewayp nil) ,@argnames)
   	 (let ((fp (load-time-value (find-frame-pair ',name))))
  -	   (perform-command nxt fp (list ,@argnames)))))))
  +	   (perform-command nxt fp onewayp (list ,@argnames)))))))
   
   (defmacro def-nxt-command (name name-code type-code &rest rest)
     "Creates the command function `name' which is a nxt command with the
  
positive.code: ;;;; Send commands and read replies:
  ;;;;
  
  (defun perform-command (nxt fp args)
    (let ((tc (fp-type-code fp))
  	(cc (fp-command-code fp))
  	(onewayp (not (reply-expected-for-type-code tc))))
      (write-request nxt tc cc (fp-request fp) args)
      (unless onewayp
        (read-reply nxt cc (fp-reply fp)))))
  
  (defun write-request (nxt tc cc fi args)
    (write-to-nxt nxt (encode-frame tc cc fi args)))
  
  (defun encode-frame (tc cc fi args)
    (let ((data-vector (make-array (fi-nbytes fi args)
  
negative.code: 
  ;;;; Part 2
  ;; Macros to defin nxt-commands and their supporting functions.
  
  
  ;;;;
  