anchor.diff:  
   (defun split-attribute-string (string)
     "Split an attribute string into an assoc list. Attr strings are formatted
  -as (name=value),(name=val1,val2,val3), i.e. comma seperated lists"
  +as (name=value),(name=val1,val2,val3), i.e. comma seperated lists that map names to lists of values"
     (loop for beg = 0 then (position-if (lambda (c)
   										(char= c #\())
   									  string
  
positive.code: 		  (prog1
  			  (mem-ref scopes :string)
  			(slp-free (mem-ref scopes :pointer)))
  		  (slp-error error-code)))))
  
  ;; get property
  
  
negative.code: 								  (if cookie cookie (null-pointer)))))
  		  (if (zerop error-code)
  			  *default-server-url-list*
  			  (slp-raise-error error-code)))))))
  
  ;; --- find server types
  
  (defcfun ("SLPFindSrvTypes" %slp-find-server-types) slp-error-type
    (handle slp-handle)
    (naming-authority :string)
    (scope-list :string)
  