(defun find-uso-cui (cui &key (srl *current-srl*) (english-only nil) limit)
(ensure-cui-integer cui)
- (collect-umlisp-query (mrconso (aui sab code srl tty saui sdui scui lat str sui)
+ (collect-umlisp-query (mrconso (aui sab code srl tty saui sdui scui lat str sui ts)
srl cui cui :lrl srl :limit limit
:filter (when english-only "LAT='ENG'"))
(make-instance 'uso :aui aui :sab sab :code code :srl srl :tty tty
:cui cui :sui sui :saui saui :sdui sdui :scui scui
- :lat lat :str str)))
+ :lat lat :str str :ts ts)))
(defun find-uso-aui (aui &key (srl *current-srl*))
(ensure-sui-integer aui)
(collect-umlisp-query (mrconso (sab cui sui code srl tty saui sdui scui lat
- str) srl aui aui :lrl srl :single t)
+ str ts) srl aui aui :lrl srl :single t)
(make-instance 'uso :aui aui :cui cui :sab sab :code code :srl srl :tty tty
:sui sui :saui saui :sdui sdui :scui scui :lat lat
- :str str)))
+ :str str :ts ts)))
(defun find-uhier-cui (cui &key (srl *current-srl*))
(ensure-cui-integer cui)
only-exact-if-match limit &key extra-lookup-args)
(let ((uobjs '()))
(dolist (word (delimited-string-to-list str #\space))
- (setq uobjs (append uobjs
- (kmrcl:flatten (apply obj-lookup-fun word :srl srl extra-lookup-args)))))
+ (setq uobjs (nconc uobjs
+ (kmrcl:flatten (apply obj-lookup-fun word :srl srl extra-lookup-args)))))
(let ((sorted
(funcall sort-fun str
(delete-duplicates uobjs :test #'= :key key))))