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

make-and-save

darcs-hash:b15dcc6e2c1ba4b123c882e2a63b8b3fae7385ab
parent 45447ac2
......@@ -214,6 +214,8 @@ The connection-spec specifies the connection to be used with the link table."
(setf (slot-value instance type2) object2)
(save-dao instance)))))
(defmacro make-and-save (type &rest rest)
`(save-dao (make-instance ,type ,@rest)))
;;; Copyright (C) 2007
;;; Ryszard Szopa <ryszard.szopa@gmail.com> &
;;; Streamtech http://streamtech.nl/
......
......@@ -11,6 +11,7 @@
#:class-non-transient-slots #:slot-value-or-id-if-foreign
#:with-connection #:with-object-connection #:with-class-connection
#:def-many-to-many #:relate
#:make-and-save
#:dao #:defdao #:save-dao #:dao-exists-p #:insert-dao #:update-dao
#:select-dao #:select-dao-fun #:get-dao #:delete-dao #:get-id
#:get-all))
......
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