anchor.diff:    (let ((local-hostname (machine-instance)))
       (dolist (server *servers*)
         (handler-case 
  -          (let ((port (frpc.bind:call-get-port +nsm-program+ +nsm-version+
  +          (let ((port (frpc.bind:call-get-port +nsm-program+ 
                                                    :query-protocol :udp
                                                    :host server
                                                    :protocol :udp)))
  
positive.code:   (:transformer (res)
      (destructuring-bind (stat seqno) res
        (values seqno (eq stat :success))))
    (:documentation "Initiates monitoring of the specified host. When the notifications of state changes are received from the host, the new state is stored and all registered clients are notified.")
    (:handler #'%handle-monitor))
  
  ;; -------------------------------------
  
negative.code:   (:list :string my-id (:varray* :octet 16))
    stat-res
    (:program nsm 1)
    (:arg-transformer (hostname &key callback-hostname (program 0) (version 0) (proc 0) private)
      (list hostname 
  	  (make-my-id :name (or callback-hostname (machine-instance))
  		      :program program
  		      :version version
  		      :proc proc)
  