Commit 99421228 authored by ryszard.szopa's avatar ryszard.szopa
Browse files

delete-dao implementation

parent 650df049
......@@ -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,
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