projects
/
clnl
/ blob
ddd429ee265cf9ca01825340f13b340db20960d2
[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
12
(defstruct turtle who color heading xcor ycor)
13
(defstruct patch color xcor ycor)