anchor.diff:  			    :proc proc)))
   		 (list port res))))))))
   	
  -			 
   (defrpc call-callit 5 
     (:list :uint32 :uint32 :uint32 (:varray* :octet)) ;;prog version proc args)
     (:list :uint32 (:varray* :octet))
  
positive.code: (defun %handle-callit (args)
    (destructuring-bind (program version proc arg-buffer) args
      ;; find the handler and port mapping 
      (frpc-log :info "CALLIT ~A:~A ~A:~A:~A" *rpc-remote-host* *rpc-remote-port* program version proc)
      (let ((mapping (find-mapping (make-mapping :program program
  					       :version version
  					       :protocol :udp)))
  
negative.code: function available.")
    (:handler #'%handle-callit))
  
  ;; ------------------------------------------------------------
  
  (defxstruct binding ()
  