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."))
transaction, so if at any time you choose abort the changes will be
reverted.)"
(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 () ())))
(sql-column-error (err)
(restart-case (error err)
......@@ -72,7 +72,7 @@ names is used."))
transaction, so if at any time you choose abort the changes will be
reverted."
(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 () ())))))
(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