anchor.diff:  (defconstant +nsm-program+ 100024)
   (defconstant +nsm-version+ 1)
   
  -(use-rpc-program +nsm-program+ +nsm-version+)
  +;;(use-rpc-program +nsm-program+ +nsm-version+)
  +(defprogram nsm 100024)
   (use-rpc-host '*rpc-host* '*rpc-port*)
   
   ;; return status
  
positive.code: (defrpc call-monitor 2 
    (:list :string my-id (:varray* :octet 16))
    stat-res
    (:arg-transformer (hostname &key (callback-hostname "localhost") (program 0) (version 0) (proc 0) private)
      (list (list hostname 
                  (make-my-id :name callback-hostname
  
negative.code: (defrpc call-unmonitor 3 
    (:list :string my-id)
    :int32
    (:program nsm 1)
    (:arg-transformer (hostname &key (callback-hostname "localhost") (program 0) (version 0) (proc 0))
      (list hostname (make-my-id :name callback-hostname
                                 :program program
  