1 (in-package #:clnl-nvm)
3 (defvar *current-id* 0)
9 (defvar *dimensions* nil)
10 (defvar *topology* :torus)
13 (defstruct turtle who color heading xcor ycor (label "") (label-color 9.9d0) (size 1d0))
14 (defstruct patch color xcor ycor)
16 (defun agent-set-list (agent-set)