在 lisp 编程中返回一个值

Question

我有一个 function

(defun read-as-list (filename)

    (defparameter parlist(list nil) )
    (let ((in (open filename :if-does-not-exist nil)))
        (when in
            (loop for line = (read-line in nil)
                 while line do
                    (defparameter mylist line)
                    (push mylist (cdr (last parlist)))
                    ;(append parlist (list mylist))
                    ;(print mylist)
                    ;(format t "~a~%" line)
            )
            (close in)
        )
    )
    (print parlist)
    (return-from read-as-list parlist)
)

它只需要一个文件名并将其读入嵌套列表并返回列表

我把它称为 function 如下：

(defun test_on_test_data ()
    (print "....................................................")
    (print "Testing ....")
    (print "....................................................")

    (let (con (read-as-list "document1.txt"))
        (print con)
    )   
)

(test_on_test_data)

在 function test-on-test-data中， con打印nil并且它不调用 function read-as-list

而不是将文件的内容打印为列表，而是打印nil 。

有人可以帮我解决这个问题。

Answer 1

这是一个示例 function，您可以使用它来测试如何迭代文件中的行。 它接受一个路径名指示符和一个回调 function，并对文件中的所有行执行 function。 function 必须接受单个参数，即正在读取的行。

(defun maplines (function path)
  (with-open-file (in path)
    (loop for line = (read-line in nil nil)
          while line
          do (funcall function line))))

请注意代码是如何缩进的，以及如何使用with-open-file处理文件的打开和关闭。 此外，函数体内没有defparameter ，因为该形式用于声明全局变量。 无需使用 return，因为 function 主体中的最后一个值自动是 function 调用的值。

然后，您可以例如按如下方式调用它：

(maplines #'print "/tmp/test.data")

与您的代码不同，如果文件不存在，则会发出错误信号。 在您的情况下，您通过在 null stream 上给出nil并且什么都不做来默默地忽略错误。

最后，您只需要使用 function 来存储正在读取的行。 或者，如果您还不知道如何执行此操作，请修改上述代码段以删除对 funcall 的调用并在循环中使用collect 。 您将获得所有行的列表。