anchor.diff:      (add-element "licence" licence library)
       (add-element "keywords" keywords library)
       (add-element "categories" categories library)
  +    (add-element "cld" (cldm::unparse-cld-address cld) library)
   
       (db.insert "libraries" library)))
   
  
positive.code: 
  (defun find-library-by-name (name)
    (first (docs (db.find "libraries" (kv "name" name)))))
  			 
  
negative.code: 			 homepage
  			 licence
  			 keywords
  			 categories
  			 cld)
    (let ((library (make-document)))
      (add-element "uuid" (princ-to-string (uuid:make-v4-uuid)) library)
      (add-element "name" name library) 
  