如何解决如何在 LispWorks 中正确询问用户的输入?
(defvar x)
(setq x (read))
(format t "this is your input: ~a" x)
它在 Common Lisp 中有点工作,但 LispWorks 显示此错误:
End of file while reading stream #<Synonym stream to
*BACKGROUND-INPUT*>.
我的意思是我试过这个:How to read user input in Lisp 创建一个函数。但仍然显示相同的错误。
我希望任何人都可以帮助我。
解决方法
你可能把这三行写进编辑器然后编译了。
因此,您可以将此函数写入编辑器:
(defun get-input ()
(format t "This is your input: ~a" (read)))
编译编辑器并从侦听器 (REPL) 调用此函数。
CL-USER 6 > (get-input)
5
This is your input: 5
NIL
您也可以像这样使用 *query-io*
流:
(format t "This is your input: ~a" (read *query-io*))
如果您在 Listener 中调用此行,它的行为类似于 read
。如果你在编辑器中调用它,它会显示小提示“输入内容:”。
如您所见,不需要全局变量。如果您需要对该给定值执行某些操作,请使用 let,它会创建本地绑定:
(defun input-sum ()
(let ((x (read *query-io*))
(y (read *query-io*)))
(format t "This is x: ~a~%" x)
(format t "This is y: ~a~%" y)
(+ x y)))
还考虑使用 read-line,它接受输入并将其作为字符串返回:
CL-USER 19 > (read-line)
some text
"some text"
NIL
CL-USER 20 > (read-line)
5
"5"
NIL
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。