anchor.diff:  	    types)))
     t)
   
  -(defun find-server-types (&key (callback-name *default-server-type-callback*)
  +(defun %find-service-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)
  
positive.code:     (push url *default-server-url-list*))
    t)
  
  (defun find-servers (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)
  
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
  