anchor.diff:    (: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.")
  +  (: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.
  +
  +HOSTNAME ::= name of the host you want the NSM service to monitor.
  +CALLBACK-HOSTNAME ::= location the callback RPC should be sent to (defaults to machine-instance).
  +PROGRAM, VERSION, PROC ::= callback RPC when the status changes.
  +PRIVATE ::= 16 octets of private data sent with the callback.
  +")
     (:handler #'%handle-monitor))
   
   ;; -------------------------------------
  
positive.code:   (:list :string my-id (:varray* :octet 16))
    stat-res
    (:program nsm 1)
    (:arg-transformer (hostname &key (callback-hostname "localhost") (program 0) (version 0) (proc 0) private)
      (list hostname 
  	  (make-my-id :name callback-hostname
  		      :program program
  		      :version version
  		      :proc proc)
  
negative.code:   (let ((local-hostname (machine-instance)))
      (dolist (server *servers*)
        (handler-case 
            (let ((port (frpc.bind:call-get-port +nsm-program+ 
                                                   :query-protocol :udp
                                                   :host server
                                                   :protocol :udp)))
  