X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;ds=sidebyside;f=create-sql.lisp;h=15506cca76bdb539e6cf812f0452186d8a853823;hb=eadf93ecf9164f5e0a1ec0be102624d1a383f677;hp=3b8b39ca912589b131958be15331f42f7794bcae;hpb=d66e2108ad5c3b338fc78f029052785b7081cf98;p=umlisp.git

diff --git a/create-sql.lisp b/create-sql.lisp
index 3b8b39c..15506cc 100644
--- a/create-sql.lisp
+++ b/create-sql.lisp
@@ -215,7 +215,7 @@
       (ignore-errors (sql-execute "drop table USRL" conn)))
   (sql-execute "create table USRL (sab varchar(80), srl integer)" conn)
   (dolist (tuple (mutex-sql-query
-		  "select distinct SAB,SRL from MRSO order by SAB asc"))
+		  "select distinct SAB,SRL from MRCONSO order by SAB asc"))
     (sql-execute (format nil "insert into USRL (sab,srl) values ('~a',~d)" 
 			 (car tuple) (ensure-integer (cadr tuple)))
 		 conn)))