projects
/
clnl
/ blob
ea427fa7572763ace4fdd2d612a06e3ada503642
[clnl]
/
src
/
main
/
nvm
/
base.lisp
1
(in-package #:clnl-nvm)
2
3
(defvar *current-id* 0)
4
5
(defvar *turtles* nil)
6
(defvar *myself* nil)
7
(defvar *self* nil)
8
(defvar *model* nil)
9
(defvar *topology* :torus)
10
11
(defstruct turtle who color heading xcor ycor)