anchor.diff:      (push url *default-server-url-list*))
     t)
   
  -(defun find-servers (server-type
  -			 &key (callback-name *default-server-url-callback*)
  -			   (scope-list "") (filter "") cookie)
  +(defun %find-services (server-type
  +					   &key
  +					   (callback-name *default-server-url-callback*)
  +					   (scope-list "") (filter "") cookie)
     "Returns a list of servers found of the specified type"
     (with-foreign-string (stype server-type)
       (with-foreign-string (slist scope-list)
  
positive.code: 	    types)))
    t)
  
  (defun find-server-types (&key (callback-name *default-server-type-callback*)
  				(naming-authority "*") (scope-list "") cookie)
    "Returns a list of server types found"
    (with-foreign-string (nauth naming-authority)
  
negative.code: 	   #:get-refresh-interval
  
  	   ;; discovery
  	   #:find-servers ;; deprecated
  	   #:find-services
  	   #:find-all-servers ;; deprecated
  	   #:find-all-services
  	   #:find-server-types ;; deprecated
  	   #:find-service-types
  	   #:find-attributes
  
  	   ;; utils provided by OpenSLP
  