Make agentsets annotated lists, Implement count

[clnl] / src / main / parse.lisp

diff --git a/src/main/parse.lisp b/src/main/parse.lisp
index 2f6b77f2a6a859215e44ebeb9d655838f092a2d1..b3dd3d79c919eedd3b169eb5bdd1fb2b7988fb1d 100644 (file)
--- a/src/main/parse.lisp
+++ b/src/main/parse.lisp
@@ -224,7 +224,7 @@ DESCRIPTION:
 (defprim :clear-all ())
 (defprim :crt (:number))
 (defprim :color ())
-(defprim :count ())
+(defprim :count (:agentset))
 (defprim :die ())
 (defprim :display ())
 (defprim :with (:reporter-block))