anchor.diff:                                           :protocol :udp
                                            :port port)))
                 (if rpc 
  -                  (call-set mapping :protocol :udp :timeout nil)
  +                  (call-set mapping :protocol :udp)
                     (add-mapping mapping))))))))
     nil)
   
  
positive.code: 
  (defun add-all-mappings (tcp-ports udp-ports &key rpc)
    "Add mappings for all defined RPCs to the TCP and UDP ports specified. If RPC is non-nil, the local port-mapper program will contacted using RPC, otherwise the local Lisp port-mapper program will have the mappings added directly."
    (setf *mappings* nil)
    (dolist (ppair frpc::*handlers*)
      (destructuring-bind (program . versions) ppair
  
negative.code:                                        :version version
                                         :port port)))              
              (if rpc 
                  ;; send an RPC to the local port-mapper to add the mapping
                  (call-set mapping :protocol :udp)
                  ;; we are running the port-mapper within this Lisp image
                  (add-mapping mapping))))
            (dolist (port udp-ports)
              (let ((mapping (make-mapping :program program
  