((and (listp agentset) (eql :agentset (car agentset))) (cdr agentset))
(t (error "Doesn't seem to be an agentset: ~A" agentset))))
((and (listp agentset) (eql :agentset (car agentset))) (cdr agentset))
(t (error "Doesn't seem to be an agentset: ~A" agentset))))