anchor.diff:                     :size message-length
                      :tag (request-class-tag 'port-please2-request)
                      :node-name node-name)))
  -
  -(defun write-port-please2-request (stream node-name)
  -  (write-message stream (make-port-please2-request node-name)))
   
   
   ;;;
  
positive.code:                  :tag (request-class-tag 'stop-request)
                   :node-name node-name))
  
  (defun write-stop-request (stream node-name)
    (write-message stream (make-stop-request node-name)))
  
  
  ;;;
  ;;; STOP_RESP / STOP_NOTOK_RESP
  
negative.code:   (make-instance 'port2-null-response
                   :tag (response-class-tag 'port2-response)
                   :result result))
  
  (defun make-port2-node-info-response (node-name node-port &key
                                        (node-type :erlang)
  