: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))