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

api change reflected in tests and example.

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