时间戳

首页 > 解决方案 > 为什么我无法在 Common Lisp 中读取此文件？

package - 为什么我无法在 Common Lisp 中读取此文件？

问题描述

我正在尝试使用 Common Lisp 读取文件with-open-file。在我的环境中，我使用的是 SBCL、Emacs 和 Slime。

我可以使用以下方法打开像这样的文件（bookmarks-to-read.lisp）：

(defun read-my-file ()
  (with-open-file
   (stream "~/miscellaneous/misc/symbolic-computation/bookmarks-to-read.lisp")
    (let ((contents
            (read-all-objects stream (list '$eof$))))
      (format t "~&Read ~S objects from the file."
              (length contents))
      contents)))

(defun read-all-objects (stream eof-indicator)
  (let ((result (read stream nil eof-indicator)))
    (if (eq result eof-indicator)
        nil
        (cons result (read-all-objects stream eof-indicator)))))

在 REPL 上调用该函数后，我得到了预期的内容：

CL-USER> (read-my-file)

Read 1 objects from the file.
(((:URL "https://calendar.google.com/calendar/u/0/r/week?pli=1" :TITLE
.
.
. 

(:URL "https://www.rescuetime.com/dashboard" :TITLE   
"RescueTime - Your Daily dashboard" :DATE
"2021-05-16T23:08:46.605691Z"    :TAGS ("rescue"))))

注意这是.lisp. 但是，如果我对另一个文件（history-to-read.lisp）尝试相同的操作，我会收到错误消息。

我只需要更改位置：

(defun read-my-file ()
  (with-open-file
   (stream "~/miscellaneous/misc/symbolic-computation/history-to-read.lisp")
    (let ((contents
            (read-all-objects stream (list '$eof$))))
      (format t "~&Read ~S objects from the file."
              (length contents))
      contents)))

(defun read-all-objects (stream eof-indicator)
  (let ((result (read stream nil eof-indicator)))
    (if (eq result eof-indicator)
        nil
        (cons result (read-all-objects stream eof-indicator))))

然后，在 REPL 上调用该函数后：

CL-USER> (read-my-file) ; Evaluation aborted on
#<SB-INT:SIMPLE-READER-PACKAGE-ERROR "Package ~A does not exist." {1003AB9273}>.

我收到此错误消息：

包 HISTORY-TREE 不存在。

行：3，列：45，文件位置：110

流：#<SB-SYS:FD-STREAM for "file /home/pedro/miscellaneous/misc/symbolic-computation/history-to-read.lisp" {1003AB83A3}> [SB-INT:SIMPLE-READER 类型条件-包错误]

“历史树”只是写在文字上的东西。像foo。

此外，我尝试在此处重现@RainerJoswig 描述的建议。不幸的是，同样的问题发生了。

1 - 由于两个文件都是.lisp并且读取它们的功能相同，为什么会发生这种情况？

2 - 为什么文本的含义/内容在这里很重要？

3 - 我怎样才能阅读这个文件？

标签： packagecommon-lispreader

解决方案

包 HISTORY-TREE 不存在

该信息很明确：该软件包HISTORY-TREE不存在。但是您尝试将符号读入这个不存在的包中，例如HISTORY-TREE:OWNER.

在该文件的打印符号中提到的每个包都需要存在，然后才能成功读取该文件。

默认的 Common Lisp 阅读器不会仅仅通过阅读符号来动态创建包。

例子：

CL-USER 130 > (read-from-string "bar::foo")

Error: Reader cannot find package BAR.
  1 (continue) Create the BAR package.
  2 Use another package instead of BAR.
  3 Try finding package BAR again.
  4 (abort) Return to top loop level 0.

Type :b for backtrace or :c <option number> to proceed.
Type :bug-form "<subject>" for a bug report template or :? for other options.

现在让我们使用错误重启来创建该包：

CL-USER 131 : 1 > :c 1
BAR::FOO
8

替代解决方案：

  1. 在读取数据之前创建包
  2. 不要打印带有包前缀的符号
  3. 使用自定义阅读器，它可以创建包或将符号标记为具有未定义的包

评论

(defun read-all-objects (stream eof-indicator)
  (let ((result (read stream nil eof-indicator)))
    (if (eq result eof-indicator)
        nil
        (cons result (read-all-objects stream eof-indicator))))

例如，可以编写如下内容：

(defun read-all-objects (stream &aux (eof '#:eof))
  (loop for item = (read stream nil eof)
        until (eq item eof)
        collect item))

好处：

  • 不需要 EOF 参数，这里我们使用 uninterned 符号
  • 列表项的数量不受堆栈深度的限制

推荐阅读