- ((eql agent-set :turtles) *turtles*)
- ((eql agent-set :patches) *patches*)
- ((and (listp agent-set) (eql :agent-set (car agent-set))) (cdr agent-set))
- (t (error "Doesn't seem to be an agent-set: ~A" agent-set))))
+ ((eql agentset :turtles) *turtles*)
+ ((eql agentset :patches) *patches*)
+ ((and (listp agentset) (eql :agentset (car agentset))) (cdr agentset))
+ (t (error "Doesn't seem to be an agentset: ~A" agentset))))