X-Git-Url: https://code.consxy.com/gitweb/gitweb.cgi?p=clnl;a=blobdiff_plain;f=src%2Fmain%2Fnvm%2Fnvm.lisp;h=96d57894b0d61b7a02fb7720e783e1cdc8cbf090;hp=e3f582d878639ee59551ae342fd30891cad65186;hb=5f87a9f;hpb=6cb99e3ea911190e3b73adab3a92e75ef36731f1

diff --git a/src/main/nvm/nvm.lisp b/src/main/nvm/nvm.lisp
index e3f582d..96d5789 100644
--- a/src/main/nvm/nvm.lisp
+++ b/src/main/nvm/nvm.lisp
@@ -153,7 +153,13 @@ DESCRIPTION:
      :color (patch-color patch)
      :xcor (patch-xcor patch)
      :ycor (patch-ycor patch)))
-   *patches*)))
+   *patches*)
+  (mapcar
+   (lambda (global)
+    (list
+     :name (car global)
+     :value (funcall (cadr global))))
+   *globals*)))
 
 ; These match netlogo's dump
 (defgeneric dump-object (o))