(read-line) and CONTROL-D
Posted: Sun May 15, 2011 6:24 am
What the ****?!?
Run this. Type a few keys, hit ENTER.
Now, hit CONTROL-D
(be prepared to hit Control-Z and then kill newlisp)
Code: Select all
(setf stopme nil)
(while (nil? stopme)
(setf r (read-line))
(if (find "exit" r) (setf stopme true))
(println "Line: " r)
)
Now, hit CONTROL-D
(be prepared to hit Control-Z and then kill newlisp)