+(defun find-uobj-multiword (str obj-lookup-fun sort-fun key srl)
+ (let ((uobjs '()))
+ (dolist (word (delimited-string-to-list str #\space))
+ (setq uobjs (append uobjs (funcall obj-lookup-fun word :srl srl))))
+ (funcall sort-fun str (delete-duplicates uobjs :test #'= :key key))))
+