Commit 1b3df3ce authored by ryszard.szopa's avatar ryszard.szopa
Browse files

dao.lisp: update-dao bugfix.

parent da2d567b
......@@ -63,7 +63,7 @@ with the values in the given object and return it."))
(with-object-connection (dao)
(postmodern::execute (sql-compile
`(:update ,(class-name-of dao) :set ,@(set-fields dao)
:where (:= 'id (get-id dao))))))
:where (:= id ,(get-id dao))))))
(defmethod shared-initialize :before ((dao dao) slot-names &rest initargs &key &allow-other-keys)
Supports Markdown
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