feat: data module to alist converter

2025-11-15 13:48:22 +00:00 · 2025-11-15 13:48:22 +00:00 · 92ccee7cf6
parent 8b33968011
commit 92ccee7cf6
1 changed files with 5 additions and 0 deletions
--- a/database.lisp
+++ b/database.lisp
@ -47,3 +47,8 @@
  
  (format t "~2&Database collections initialized~%"))

+(defun data-model-as-alist (model)
+  "Converts a radiance data-model instance into a alist"
+  (unless (dm:hull-p model)
+    (loop for field in (dm:fields model)
+          collect (cons field (dm:field model field)))))