Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
submarine
submarine
Commits
8324bc40
Commit
8324bc40
authored
Aug 28, 2007
by
ryszard.szopa
Browse files
sql-ize table names when fixing database.
darcs-hash:6594ffb37072223f70e09f9c5deb6bb6d6feabeb
parent
efea861f
Changes
1
Show whitespace changes
Inline
Side-by-side
db.lisp
View file @
8324bc40
...
...
@@ -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
)))
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment