Code reformat - Macro for functions implement commands to return :undefined

[clnl] / src / main / main.lisp

diff --git a/src/main/main.lisp b/src/main/main.lisp
index 5bb93610de52d79184902ca9325800131c1ac319..a226642c8e702b63cbabb49321e7108aed1cd6af 100644 (file)
--- a/src/main/main.lisp
+++ b/src/main/main.lisp
@@ -126,7 +126,8 @@ DESCRIPTION:
           (if (getf prim :macro) ; The reason we do this is because with macros, we want to evaluate them in
                                  ; this scope while preserving them for the generational purposes below
            (append (list :macro (eval (getf prim :macro))) prim)
-           prim)) prims))))))
+           prim)) prims)))
+    :undefined)))
 
 (defun model->single-form-lisp (model &key (seed 15) initialize-interface netlogo-callback)
  (multiple-value-bind