anchor.diff:  	     user))))
   
   (defun execute-search (term drilldown api start limit sf so)
  -  (let* ((result (execute-cloudant-query term
  +  (let* ((result (execute-search-query term
                                            :drilldown drilldown
                                            :api api
                                            :start start
  
positive.code: 	(values nil nil nil (get-error-reason result)))))
  
  (defun get-synset-ids (term drilldown start limit)
    (let* ((result (execute-cloudant-query term
                                           :drilldown drilldown
                                           :api "search-documents"
                                           :start start
  
negative.code:            (cons "limit" limit)))
      (when drilldown drilldown))))
  
  (defun execute-search-query (term &key drilldown limit sort-field sort-order (start 0) fl (api "search-documents"))
    (call-rest-method
     api
     :parameters (get-search-query-plist term drilldown limit start sort-field sort-order fl)))
  
  (defun delete-suggestion (id)
    (call-rest-method
  