anchor.diff:  	 (yason:*parse-object-key-fn* #'make-keyword)
   	 (hits (getf
   		(getf (clesc:es/search "suggestion" :terms `(("doc_id" ,id)
  -							     ("type" "comment")))
  +							     ("type" "comment"))
  +				       :size 100 :fields-order '(("date" "desc")))
   		      :|hits|)
   		:|hits|))
   	 (comments (mapcar (lambda (hit) (getf hit :|_source|)) hits)))
  
positive.code: 			("action" . ,suggestion-type)
  			("params" . ,params)
  			("user" . ,login)
  			("status" . "new") ;; new accepted not-accepted committed
  			("provenance" . ,provenance)
  			("id" . ,suggestion-id)))))
      (clesc:es/add "suggestion" "suggestion" suggestion :id suggestion-id)
      (register-audit db "add-suggestion" synset-id type value login provenance)))
  
  (defmethod delete-suggestion ((backend (eql 'es)) id)
    (clesc:es/delete "suggestion" "suggestion" id))
  
  ;; audit
  (defun register-audit (db action doc-id field value user provenance)
  
negative.code: 	(yason:*parse-object-key-fn* #'make-keyword)
  	(id (getf suggestion :|id|))
  	(hits (getf
  	       (getf (clesc:es/search "votes"
  				      :terms `(("suggestion_id" ,id))
  				      :size 100)
  		     :|hits|)
  	       :|hits|))
  	(votes (mapcar (lambda (hit) (getf hit :|_source|)) hits)))
  