projects
/
clnl
/ blob
228853767bde0968e763e7bd955314db5805e4e0
[clnl]
/
src
/
main
/
nvm
/
base.lisp
1
(in-package #:clnl-nvm)
2
3
(defvar *current-id* 0)
4
5
(defvar *turtles* nil)
6
(defvar *patches* nil)
7
(defvar *myself* nil)
8
(defvar *self* nil)
9
(defvar *dimensions* nil)
10
(defvar *topology* :torus)
11
(defvar *ticks* nil)
12
13
(defstruct turtle who color heading xcor ycor)
14
(defstruct patch color xcor ycor)
15
16
(defun agent-set-list (agent-set)
17
agent-set)