projects
/
clnl
/ blobdiff
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
CLI Extension - :q
[clnl]
/
src
/
main
/
cli.lisp
diff --git
a/src/main/cli.lisp
b/src/main/cli.lisp
index fe895e290ebf2bc735db8b4a253278bd612198d5..1aeb746c3b4b2c3842531bf2c6d222e5a1ad45bb 100644
(file)
--- a/
src/main/cli.lisp
+++ b/
src/main/cli.lisp
@@
-23,7
+23,6
@@
DESCRIPTION:
(loop
:for str := (cffi:with-foreign-pointer-as-string (str 255) (wgetnstr *cli* str 255))
:while str
(loop
:for str := (cffi:with-foreign-pointer-as-string (str 255) (wgetnstr *cli* str 255))
:while str
- :while (and (string/= str "q") (string/= str "Q"))
:do (print-command-and-response str (execute str)))
(endwin)
(sb-ext:exit :abort t))
:do (print-command-and-response str (execute str)))
(endwin)
(sb-ext:exit :abort t))
@@
-85,7
+84,7
@@
DESCRIPTION:
implementation of NetLogo.
You can enter in various netlogo commands below,
implementation of NetLogo.
You can enter in various netlogo commands below,
- or use q to quit the program.
+ or use
:
q to quit the program.
See http://github.com/frankduncan/clnl for more
information about CLNL and to keep apprised of
See http://github.com/frankduncan/clnl for more
information about CLNL and to keep apprised of