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
cad2517e
Commit
cad2517e
authored
Aug 14, 2007
by
ryszard.szopa
Browse files
minor documentation improvements
darcs-hash:0e32dc409be3d26ccf2b0fc735ce178af6e7a855
parent
1d8c818d
Changes
2
Hide whitespace changes
Inline
Side-by-side
dao.lisp
View file @
cad2517e
...
...
@@ -22,7 +22,7 @@
(
insert-dao
dao
))))
(
defgeneric
save-all-foreign-daos
(
dao
)
(
:documentation
"Saves recursively all daos in the slots of DAO"
)
(
:documentation
"Saves recursively all
foreign
daos in the slots of DAO"
)
(
:method
((
dao
dao
))
(
iter
(
for
slot
in
(
mapcar
#'
slot-definition-name
(
non-transient-slots-of
dao
)))
(
let
((
s-value
(
slot-value
dao
slot
)))
...
...
@@ -46,7 +46,7 @@ exists in the database.")
(
intern
(
format
nil
"~A-ID-SEQ"
(
class-name
class
))
:keyword
))
(
defgeneric
insert-dao
(
dao
)
(
:documentation
"Insert the given
dao
into the database."
)
(
:documentation
"Insert the given
DAO
into the database."
)
(
:method
((
dao
dao
))
(
with-object-connection
(
dao
)
(
unless
(
slot-boundp
dao
'id
)
...
...
@@ -54,7 +54,7 @@ exists in the database.")
(
postmodern::execute
(
sql-compile
`
(
:insert-into
,
(
class-name-of
dao
)
:set
,@
(
set-fields
dao
)))))))
(
defgeneric
update-dao
(
dao
)
(
:documentation
"Update the
dao
's representation in the database
(
:documentation
"Update the
DAO
's representation in the database
with the values in the given object."
))
(
defmethod
update-dao
((
dao
dao
))
...
...
@@ -94,7 +94,7 @@ with the database."
(
sql-compile
test
))))))))
(
defmacro
select-dao
(
type
&optional
(
test
t
))
"Select daos for the rows in its table for which the given
test
"Select daos for the rows in its table for which the given
TEST
holds."
`
(
select-dao-fun
,
type
',test
))
...
...
mop.lisp
View file @
cad2517e
...
...
@@ -42,6 +42,7 @@ ignored in all database related operations.")))
slotd
))
(
defgeneric
foreign-type-p
(
slot
)
(
:documentation
"Is SLOT foreign?"
)
(
:method
((
slot
db-class-slot-definition
))
(
typep
(
find-class
(
slot-definition-type
slot
))
'db-class
)))
...
...
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