Add helper functions to models package

src/models/helpers.lisp

@@ -0,0 +1,10 @@
+;;; -*- mode: lisp; coding: utf-8; -*-
+
+(in-package :ml-survey/models)
+
+(defun object-to-plist (obj)
+  (loop :for slot :in (closer-mop:class-slots (class-of obj))
+        :for slot-name = (closer-mop:slot-definition-name slot)
+        :when (slot-boundp obj slot-name)
+          :nconc (list (intern (symbol-name slot-name) :keyword)
+                       (slot-value obj slot-name))))