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
a234d722
Commit
a234d722
authored
Aug 13, 2007
by
ryszard.szopa
Browse files
NON-TRANSIENT-SLOTS-OF returns now a list of slots instead of a list of slot names.
darcs-hash:e652fb1fb077b268fd09a964fd3c19386277224e
parent
77622df1
Changes
2
Hide whitespace changes
Inline
Side-by-side
dao.lisp
View file @
a234d722
...
...
@@ -24,7 +24,7 @@
(
defgeneric
save-all-foreign-daos
(
dao
)
(
:documentation
"Saves recursively all daos in the slots of DAO"
)
(
:method
((
dao
dao
))
(
iter
(
for
slot
in
(
non-transient-slots-of
dao
))
(
iter
(
for
slot
in
(
mapcar
#'
slot-definition-name
(
non-transient-slots-of
dao
))
)
(
let
((
s-value
(
slot-value
dao
slot
)))
(
when
(
typep
s-value
'dao
)
(
save-dao
s-value
))))))
...
...
utilities.lisp
View file @
a234d722
...
...
@@ -20,8 +20,8 @@
(
mapcar
#'
slot-definition-name
(
class-slots
(
class-of
object
))))
(
defun
non-transient-slots-of
(
object
)
"List of
names of
non-t
r
ansient slots of OBJECT
.
"
(
mapcar
#'
slot-definition-name
(
remove-if
#'
transient-p
(
class-slots
(
class-of
object
))))
)
"List of non-tansient slots of OBJECT"
(
remove-if
#'
transient-p
(
class-slots
(
class-of
object
))))
(
defun
slot-value-or-id-if-foreign
(
object
slot
)
"SLOT-VALUE if SLOT in OBJECT is not foreign, the ID of the object in the slot otherwise."
...
...
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