Commit 8324bc40 authored by ryszard.szopa's avatar ryszard.szopa
Browse files

sql-ize table names when fixing database.

darcs-hash:6594ffb37072223f70e09f9c5deb6bb6d6feabeb
parent efea861f
...@@ -63,7 +63,7 @@ names is used.")) ...@@ -63,7 +63,7 @@ names is used."))
transaction, so if at any time you choose abort the changes will be transaction, so if at any time you choose abort the changes will be
reverted.)" reverted.)"
(postmodern:execute (format nil "ALTER TABLE ~A ADD COLUMN ~A ~A;" (postmodern:execute (format nil "ALTER TABLE ~A ADD COLUMN ~A ~A;"
(table-name err) (column-name err) (column-type err)))) (sql-ize (table-name err)) (column-name err) (column-type err))))
(ignore () ()))) (ignore () ())))
(sql-column-error (err) (sql-column-error (err)
(restart-case (error err) (restart-case (error err)
...@@ -72,7 +72,7 @@ names is used.")) ...@@ -72,7 +72,7 @@ names is used."))
transaction, so if at any time you choose abort the changes will be transaction, so if at any time you choose abort the changes will be
reverted." reverted."
(postmodern:execute (format nil "ALTER TABLE ~A ALTER COLUMN ~A TYPE ~A" (postmodern:execute (format nil "ALTER TABLE ~A ALTER COLUMN ~A TYPE ~A"
(table-name err) (column-name err) (needed-type err)))) (sql-ize (table-name err)) (column-name err) (needed-type err))))
(ignore () ()))))) (ignore () ())))))
(warn "Table ~A already exists." (class-name class))) (warn "Table ~A already exists." (class-name class)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment