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
Hide whitespace changes
Inline
Side-by-side
db.lisp
View file @
8324bc40
...
@@ -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
)))
...
...
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