Fix generating SQLs in DAO functions to lispify relational fields.

fukamachi · Aug 26, 2017 · 36fff04 · 36fff04
1 parent 2a571c9
commit 36fff04
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/core/dao.lisp b/src/core/dao.lisp
@@ -18,6 +18,7 @@
                     #:find-child-columns
                     #:table-column-references-column)
       (:import-from #:mito.class.column
+                    #:table-column-name
                     #:table-column-type)
       (:import-from #:mito.db
                     #:last-insert-id
@@ -307,7 +308,7 @@
                                (when children
                                  `((:and ,@(loop for child in children
                                                  collect
-                                                 `(:= ,(intern (string (c2mop:slot-definition-name child)) :keyword)
+                                                 `(:= ,(intern (table-column-name child) :keyword)
                                                       ,(slot-value value
                                                                    (c2mop:slot-definition-name
                                                                     (table-column-references-column child)))))))))