projects
/
clnl
/ blobdiff
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
UI/Model Parse - Sliders - WIP
[clnl]
/
src
/
main
/
nvm
/
world.lisp
diff --git
a/src/main/nvm/world.lisp
b/src/main/nvm/world.lisp
index 6dfa2148e73942107e71cb7ac5ae7dd467e9526f..5bac9b4b6e9972482fe9483a4833b47c9572fe76 100644
(file)
--- a/
src/main/nvm/world.lisp
+++ b/
src/main/nvm/world.lisp
@@
-19,12
+19,10
@@
(defun clear-ticks ()
(setf *ticks* nil))
(defun clear-ticks ()
(setf *ticks* nil))
-(def
un
clear-all ()
+(def
command
clear-all ()
"CLEAR-ALL => RESULT
"CLEAR-ALL => RESULT
-ARGUMENTS AND VALUES:
-
- RESULT: undefined
+ RESULT: :undefined
DESCRIPTION:
DESCRIPTION:
@@
-35,12
+33,10
@@
DESCRIPTION:
(clear-patches)
(clear-ticks))
(clear-patches)
(clear-ticks))
-(def
un
display ()
+(def
command
display ()
"DISPLAY => RESULT
"DISPLAY => RESULT
-ARGUMENTS AND VALUES:
-
- RESULT: undefined
+ RESULT: :undefined
DESCRIPTION:
DESCRIPTION:
@@
-50,12
+46,10
@@
DESCRIPTION:
See http://ccl.northwestern.edu/netlogo/docs/dictionary.html#display"
nil)
See http://ccl.northwestern.edu/netlogo/docs/dictionary.html#display"
nil)
-(def
un
reset-ticks ()
+(def
command
reset-ticks ()
"RESET-TICKS => RESULT
"RESET-TICKS => RESULT
-ARGUMENTS AND VALUES:
-
- RESULT: undefined
+ RESULT: :undefined
DESCRIPTION:
DESCRIPTION:
@@
-64,12
+58,10
@@
DESCRIPTION:
See http://ccl.northwestern.edu/netlogo/docs/dictionary.html#reset-ticks"
(setf *ticks* 0d0))
See http://ccl.northwestern.edu/netlogo/docs/dictionary.html#reset-ticks"
(setf *ticks* 0d0))
-(def
un
tick ()
+(def
command
tick ()
"RESET-TICKS => RESULT
"RESET-TICKS => RESULT
-ARGUMENTS AND VALUES:
-
- RESULT: undefined
+ RESULT: :undefined
DESCRIPTION:
DESCRIPTION: