r11099: add error checking

[umlisp.git] / sql.lisp

diff --git a/sql.lisp b/sql.lisp
index 1c4b0579a413fc1d9ee6277fbc7c7546558389af..6b8ad01aa19e4f56567585e7a921c7da461ba072 100644 (file)
--- a/sql.lisp
+++ b/sql.lisp
@@ -65,7 +65,7 @@
 (defun sql-connect ()
   "Connect to UMLS database, automatically used pooled connections"
   (clsql:connect (list *umls-sql-host* (lookup-db-name *umls-sql-db*)
-                      *umls-sql-user* *umls-sql-passwd*) 
+                      *umls-sql-user* *umls-sql-passwd*)
                 :database-type *umls-sql-type* :pool t))
 
 (defun sql-disconnect (conn)