X-Git-Url: http://git.kpe.io/?p=umlisp.git;a=blobdiff_plain;f=sql.lisp;h=53c98e2c238a0ee32ce99807c010249b9b470338;hp=565672ee5810015ff56f94b55eacc5d2b7f3ba7a;hb=cba592c185ee1b2e4eedc4aaa531495da79d897e;hpb=f2f3771917e7d8c2999615d3f30641c8ee251872

diff --git a/sql.lisp b/sql.lisp
index 565672e..53c98e2 100644
--- a/sql.lisp
+++ b/sql.lisp
@@ -30,7 +30,7 @@
 (defun umls-sql-db ()
   *umls-sql-db*)
 
-(defun (setf umls-sql-db) (db)
+(defun set-umls-sql-db (db)
   (etypecase db
     (string
      (setq *umls-sql-db* db))
@@ -40,28 +40,28 @@
 (defvar *umls-sql-user* "secret")
 (defun umls-sql-user ()
   *umls-sql-user*)
-(defun (setf umls-sql-user) (u)
+(defun set-umls-sql-user (u)
   (sql-disconnect-pooled)
   (setq *umls-sql-user* u))
 
 (defvar *umls-sql-passwd* "secret")
 (defun umls-sql-passwd ()
   *umls-sql-passwd*)
-(defun (setf umls-sql-passwd) (p)
+(defun set-umls-sql-passwd (p)
   (sql-disconnect-pooled)
   (setq *umls-sql-passwd* p))
 
 (defvar *umls-sql-host* "localhost")
 (defun umls-sql-host ()
   *umls-sql-host*)
-(defun (setf umls-sql-host) (h)
+(defun set-umls-sql-host (h)
   (sql-disconnect-pooled)
   (setq *umls-sql-host* h))
 
 (defvar *umls-sql-type* :mysql)
 (defun umls-sql-type ()
   *umls-sql-type*)
-(defun (setf umls-sql-type) (h)
+(defun set-umls-sql-type (h)
   (sql-disconnect-pooled)
   (setq *umls-sql-type* h))