Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
submarine
submarine
Commits
16f91c22
Commit
16f91c22
authored
Sep 06, 2007
by
ryszard.szopa
Browse files
api change reflected in tests and example.
darcs-hash:72cc928219926db87a51f69fa8ec063d766b94ec
parent
657b84eb
Changes
2
Hide whitespace changes
Inline
Side-by-side
doc/example.lisp
View file @
16f91c22
...
@@ -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.
;;
;;
...
...
submarine-tests.lisp
View file @
16f91c22
...
@@ -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
)
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment