X-Git-Url: https://code.consxy.com/gitweb/gitweb.cgi?p=clnl;a=blobdiff_plain;f=src%2Fmain%2Fnvm%2Fcontrolflow.lisp;h=b4368fdec25e4f6d2373951b68f6faa810686bdb;hp=a1df63b1194a03f2df7f10f467b3321e632daeea;hb=89cb3482de1fefc2d8e5f67e1e04a0790e8cd243;hpb=885270b122c568ecdba52a465dae0125adae8c18

diff --git a/src/main/nvm/controlflow.lisp b/src/main/nvm/controlflow.lisp
index a1df63b..b4368fd 100644
--- a/src/main/nvm/controlflow.lisp
+++ b/src/main/nvm/controlflow.lisp
@@ -1,14 +1,14 @@
 (in-package #:clnl-nvm)
 
-(defun ask (agent-or-agentset fn)
+(defcommand ask (agent-or-agentset fn)
  "ASK AGENT-OR-AGENTSET FN => RESULT
 
   AGENT-OR-AGENTSET: AGENT | AGENTSET
+  RESULT: :undefined
 
 ARGUMENTS AND VALUES:
 
   FN: a function, run on each agent
-  RESULT: undefined, commands don't return
   AGENT: a NetLogo agent
   AGENTSET: a NetLogo agentset
 
@@ -35,12 +35,10 @@ DESCRIPTION:
   (t
    (error "Ask requires an agentset or agent but got: ~A" agent-or-agentset))))
 
-(defun stop ()
+(defcommand stop ()
  "STOP => RESULT
 
-ARGUMENTS AND VALUES:
-
-  RESULT: undefined
+  RESULT: :undefined
 
 DESCRIPTION: