anchor.diff:    (make-instance 'port2-null-response
                    :tag (response-class-tag 'port2-response)
                    :result result))
  -
  -(defun write-port2-null-response (stream &optional (result 1))
  -  (write-message stream (make-port2-null-response result)))
   
   (defun make-port2-node-info-response (node-name node-port &key
                                         (node-type :erlang)
  
positive.code:                  :size 1
                   :tag (request-class-tag 'kill-request)))
  
  (defun write-kill-request (stream)
    (write-message stream (make-kill-request)))
  
  
  ;;;
  ;;; KILL_RESP
  
negative.code:                    :extra-length extra-length
                     :extra extra)))
  
  
  ;;;
  ;;; NAMES_REQ
  