X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=create-sql.lisp;h=15506cca76bdb539e6cf812f0452186d8a853823;hb=fab71e6fecf552789593d979b85cea58099f236d;hp=3b8b39ca912589b131958be15331f42f7794bcae;hpb=62ce365967f05ec6a2945a20cd5c45efb7b809e5;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)))