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
89a65261
Commit
89a65261
authored
Aug 14, 2007
by
ryszard.szopa
Browse files
transient-slots bug fix
darcs-hash:1f97e768e2d1db529c81607f3aba887c4597dff2
parent
eb637714
Changes
1
Hide whitespace changes
Inline
Side-by-side
dao.lisp
View file @
89a65261
...
...
@@ -39,7 +39,7 @@ exists in the database.")
:single
)))))
(
defun
set-fields
(
object
)
(
iter
(
for
field
in
(
slots-of
object
))
(
iter
(
for
field
in
(
mapcar
#'
slot-definition-name
(
non-transient-
slots-of
object
))
)
(
appending
`
(
,
field
,
(
slot-value-or-id-if-foreign
object
field
)))))
(
defun
id-seq-name
(
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