Merge branch 'master' of ssh://git.b9.com/home/gitpub/umlisp

diff --combined sql-classes.lisp
index 64cc4b3499b46834a622a4c4b1588cf621651b18,912a3fc37fae6cd7e6dcba8344389a128cac7d38..87d59bfeff89409b1a11e710afd14869fc12c4f2
--- 1/sql-classes.lisp
--- 2/sql-classes.lisp
+++ b/sql-classes.lisp
@@@ -626,20 -626,20 +626,20 @@@ is OBJNAME from TABLE where WHERE-NAME 
  
  (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)
@@@ -911,8 -911,8 +911,8 @@@
                                  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))))