X-Git-Url: https://code.consxy.com/gitweb/gitweb.cgi?p=clnl;a=blobdiff_plain;f=src%2Fmain%2Fmain.lisp;h=a226642c8e702b63cbabb49321e7108aed1cd6af;hp=5bb93610de52d79184902ca9325800131c1ac319;hb=6fc4a17;hpb=885270b122c568ecdba52a465dae0125adae8c18

diff --git a/src/main/main.lisp b/src/main/main.lisp
index 5bb9361..a226642 100644
--- 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