r9529: successful import of 2004aa

[umlisp.git] / create-sql.lisp

diff --git a/create-sql.lisp b/create-sql.lisp
index 3b8b39ca912589b131958be15331f42f7794bcae..15506cca76bdb539e6cf812f0452186d8a853823 100644 (file)
--- 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)))