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
99421228
Commit
99421228
authored
Aug 14, 2007
by
ryszard.szopa
Browse files
delete-dao implementation
darcs-hash:3626cdf6dd60177c6eeedfaf2c2847f3537cd812
parent
650df049
Changes
1
Hide whitespace changes
Inline
Side-by-side
dao.lisp
View file @
99421228
...
...
@@ -102,7 +102,10 @@ holds."
`
(
select-dao-fun
,
type
',test
))
(
defgeneric
delete-dao
(
dao
)
(
:documentation
"Delete the given dao from the database."
))
(
:documentation
"Delete the given dao from the database."
)
(
:method
((
dao
dao
))
(
with-object-connection
(
dao
)
(
postmodern:execute
(
:delete-from
(
class-name-of
dao
)
:where
(
:=
'id
(
get-id
dao
)))))))
(
defun
get-dao
(
type
id
)
"Get the dao corresponding to the given primary key,
...
...
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