Commit 16f91c22 authored by ryszard.szopa's avatar ryszard.szopa
Browse files

api change reflected in tests and example.

parent 657b84eb
......@@ -38,7 +38,7 @@
;; number of clubs.
(def-many-to-many person club ("submarine-test" "richard" "dupa" "localhost"))
(def-many-to-many person club :connection-spec ("submarine-test" "richard" "dupa" "localhost"))
;; This the macroexpansion of the last form. We can see it defines two
;; methods, for retrieving all objects related to its argument.
......@@ -32,8 +32,8 @@ metaclass set to HTML and the right connection-spec."
(:connection-spec "submarine-test" "richard" "dupa" "localhost")
(:metaclass db-class)))
(defmacro defmany (x y)
`(def-many-to-many ,x ,y ("submarine-test" "richard" "dupa" "localhost")))
(defmacro defmany (x y &key name)
`(def-many-to-many ,x ,y :name ,name :connection-spec ("submarine-test" "richard" "dupa" "localhost")))
(in-suite submarine-tests)
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