anchor.diff:                   :size 1
                    :tag (request-class-tag 'dump-request)))
   
  -(defun write-dump-request (stream)
  -  (write-message stream (make-dump-request)))
  -
   
   ;;;
   ;;; DUMP_RESP
  
positive.code:   (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)
  
negative.code: 
  (defun make-kill-response ()
    (make-instance 'kill-response :ok-string "OK"))
  
  
  ;;;
  