adjust model definition to initialize DB if it does not exist yet

mck- · Apr 30, 2012 · 823a47e · 823a47e
1 parent 0555e5e
commit 823a47e
Showing 1 changed file with 3 additions and 5 deletions.
diff --git a/src/util/model-utils.lisp b/src/util/model-utils.lisp
@@ -10,11 +10,9 @@
 	,@slot-definitions)		      
        (:metaclass dao-class)
        (:keys id))
-     (defun ,(symb name 'init-table) ()
-         (with-connection (db-params)
-	   (when (table-exists-p ',name)
-	     (query (conc "DROP TABLE" (string ',name))))
-	   (execute (dao-table-definition ',name))))
+     (with-connection (db-params)
+       (unless (table-exists-p ',name)
+	 (execute (dao-table-definition ',name))))
      ;; Create
      (defmacro ,(symb name 'create) (&rest args)
        `(with-connection (db-params)