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 agentset-list (agentset)
18 ((eql agentset :turtles) *turtles*)
19 ((eql agentset :patches) *patches*)
20 ((and (listp agentset) (eql :agentset (car agentset))) (cdr agentset))
21 (t (error "Doesn't seem to be an agentset: ~A" agentset))))
27 (and (listp o) (eql :agentset (car o)))))
30 (or (turtle-p o) (patch-p o)))