Commit 89a65261 authored by ryszard.szopa's avatar ryszard.szopa
Browse files

transient-slots bug fix

darcs-hash:1f97e768e2d1db529c81607f3aba887c4597dff2
parent eb637714
...@@ -39,7 +39,7 @@ exists in the database.") ...@@ -39,7 +39,7 @@ exists in the database.")
:single))))) :single)))))
(defun set-fields (object) (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))))) (appending `(,field ,(slot-value-or-id-if-foreign object field)))))
(defun id-seq-name (class) (defun id-seq-name (class)
......
Supports Markdown
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