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

transient-slots bug fix

parent eb637714
......@@ -39,7 +39,7 @@ exists in the database.")
(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)
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