anchor.diff:  (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)
  +    (frpc-log :trace "CALLIT ~A:~A:~A" program version proc)
       (let ((mapping (find-mapping (make-mapping :program program
   					       :version version
   					       :protocol :udp)))
  
positive.code: 			    :proc proc)))
  		 (list port res))))))))
  	
  			 
  (defrpc call-callit 5 
    (:list :uint32 :uint32 :uint32 (:varray* :octet)) ;;prog version proc args)
    (:list :uint32 (:varray* :octet))
  
negative.code: function available.")
    (:handler #'%handle-callit))
  
  ;; ------------------------------------------------------------
  
  (defxstruct binding ()
  