projects
/
clnl
/ blobdiff
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
UI/Model Parse - Switches
[clnl]
/
src
/
main
/
nvm
/
nvm.lisp
diff --git
a/src/main/nvm/nvm.lisp
b/src/main/nvm/nvm.lisp
index e3f582d878639ee59551ae342fd30891cad65186..96d57894b0d61b7a02fb7720e783e1cdc8cbf090 100644
(file)
--- 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)))
: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))
; These match netlogo's dump
(defgeneric dump-object (o))