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:     (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: 	    *default-server-type-list*
  	    (slp-raise-error error-code))))))
  
  (defun find-service-types ()
    "Returns a list of server types found"
    (%find-service-types))
  
  (defun find-server-types (&key (callback-name *default-server-type-callback*)
  				(naming-authority "*") (scope-list "") cookie)
    (warn "FIND-SERVER-TYPES is deprecated. Use FIND-SERVICE-TYPES")
    (%find-service-types :callback-name callback-name
  					   :naming-authority naming-authority
  					   :scope-list scope-list
  					   :cookie cookie))
  					   
  
  ;; ---------------------------------------------------------
  
  ;; find all servers
  
  (defun find-all-services ()
    "Return a list of the urls of all servers found"
    (mapcan (lambda (type)
  	    (find-services type))
  	  (find-service-types)))
  
  (defun find-all-servers ()
    (warn "FIND-ALL-SERVERS is deprecated. Use FIND-ALL-SERVICES")
    (find-all-services))
  
  ;;; find attrs
  
  