(defun umls-sql-passwd ()
*umls-sql-passwd*)
(defun set-umls-sql-passwd (p)
(sql-disconnect-pooled)
(setq *umls-sql-passwd* p))
(defun umls-sql-passwd ()
*umls-sql-passwd*)
(defun set-umls-sql-passwd (p)
(sql-disconnect-pooled)
(setq *umls-sql-passwd* p))