如何在没有引号且没有返回任何内容的情况下在lisp中输出字符串?

时间:2018-03-24 14:23:12

标签: string return output lisp common-lisp

我是lisp编程的新手,我想知道如何在没有引号的情况下输出字符串而不返回像大多数语言一样的对象(包括不返回nil)?

std::cout<<"Hello world\n";

我知道format t函数会这样做,但它仍然返回nil没有一种方法可以输出没有nil和引号?有可能吗?

有人可以指点我的thisthis这样的Lisp教程,但有更详细的文档和解释吗?

1 个答案:

答案 0 :(得分:10)

REPL打印它执行的每个表达式的值

如果您使用READ EVAL PRINT LOOP,则REPL将打印结果。这就是为什么它被称为Read Eval Print Loop。

但输出功能本身不会打印出结果。

CL-USER 1 > (format t "hello")
hello      ; <- printed by FORMAT
NIL        ; <- printed by the REPL

CL-USER 2 > (format t "world")
world      ; <- printed by FORMAT
NIL        ; <- printed by the REPL

现在结合以上内容:

CL-USER 3 > (defun foo ()
              (format t "hello")
              (format t "world"))
FOO

CL-USER 4 > (foo)
helloworld     ; <- printed by two FORMAT statements
               ;    as you can see the FORMAT statement did not print a value
NIL            ; <- the return value of (foo) printed by the REPL

如果没有返回任何值,REPL将不会打印任何值。

CL-USER 5 > (defun foo ()
              (format t "hello")
              (format t "world")
              (values))
FOO

CL-USER 6 > (foo)
helloworld   ; <- printed by two FORMAT statements
             ; <- no return value -> nothing printed by the REPL

您可以在没有REPL的情况下执行Lisp代码

如果您在没有REPL的情况下使用Lisp,则无论如何都不会打印任何值:

$ sbcl --noinform --eval '(format t "hello world~%")' --eval '(quit)'
hello world
$

或者你可以让Lisp执行一个Lisp文件:

$ cat foo.lisp
(format t "helloworld~%")
$ sbcl --script foo.lisp
helloworld
$

实际的命令行是特定于实现的。