Browse files

Merge branch 'master' of git:/var/git/clsql-helper

  • Loading branch information...
bobbysmith007 committed Feb 6, 2012
2 parents 69a95fe + fad35a3 commit 14847058c5aaeeb78cb32ccf8da1dd8c103b60b2
Showing with 3 additions and 2 deletions.
  1. +3 −2 migrations.lisp
@@ -23,11 +23,12 @@
(defun migrate (sql-statement &aux (hash (sql-hash sql-statement)))
(unless (migration-done-p hash)
+ (with-simple-restart (continue "Ignore error, consider this migration done.")
+ (clsql-sys:execute-command sql-statement))
:into *migration-table-name*
:attributes (list [hash] [query] [date-entered])
- :values (list hash sql-statement (clsql-helper:current-sql-time)))
- (clsql-sys:execute-command sql-statement)))
+ :values (list hash sql-statement (clsql-helper:current-sql-time)))))
(defun migrations (&rest sql-statements)
(unless clsql-sys:*default-database* (error "must have a database connection open."))

0 comments on commit 1484705

Please sign in to comment.