anchor.diff:  	   #:get-refresh-interval
   
   	   ;; discovery
  -	   #:find-servers
  -	   #:find-all-servers
  -	   #:find-server-types
  +	   #: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
  
positive.code: 	    *default-server-type-list*
  	    (slp-raise-error error-code))))))
  
  ;; ---------------------------------------------------------
  
  ;; find all servers
  
  (defun find-all-servers ()
    "Return a list of the urls of all servers found"
    (mapcan (lambda (type)
  	    (find-servers type))
  	  (find-server-types)))
  
  
  ;;; find attrs
  
  
negative.code:     (push url *default-server-url-list*))
    t)
  
  (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)
  