Fix slot name

diff --git a/sql-classes.lisp b/sql-classes.lisp
index 87d59bfeff89409b1a11e710afd14869fc12c4f2..b1373f004d8f14140bc9d1e5d10ed746a8e3f54d 100644 (file)
--- a/sql-classes.lisp
+++ b/sql-classes.lisp
@@ -563,7 +563,7 @@ is OBJNAME from TABLE where WHERE-NAME field = WHERE-VALUE with FIELDS"
 (defun find-ustr-cuisui (cuisui &key (srl *current-srl*))
   "Return the single ustr for cuisui"
   (collect-umlisp-query (mrconso (cui lui sui stt str suppress ksuilrl) srl kcuisui
 (defun find-ustr-cuisui (cuisui &key (srl *current-srl*))
   "Return the single ustr for cuisui"
   (collect-umlisp-query (mrconso (cui lui sui stt str suppress ksuilrl) srl kcuisui

-                                 cuisui :lrl lsuilrl :single t)
+                                 cuisui :lrl ksuilrl :single t)

     (make-instance 'ustr :sui sui :cui cui :cuisui cuisui
                    :lui (ensure-integer lui) :stt stt :str str :suppress suppress
                    :lrl (ensure-integer ksuilrl))))
     (make-instance 'ustr :sui sui :cui cui :cuisui cuisui
                    :lui (ensure-integer lui) :stt stt :str str :suppress suppress
                    :lrl (ensure-integer ksuilrl))))