From 92ccee7cf64a45d7721dc177a39c4e81bbb2410f Mon Sep 17 00:00:00 2001 From: Luis Pereira Date: Sat, 15 Nov 2025 13:48:22 +0000 Subject: [PATCH] feat: data module to alist converter --- database.lisp | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/database.lisp b/database.lisp index 8c141e0..4c9a95a 100644 --- 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)))))