为什么我不能使用这个解析 javascript 代码的 Common Lisp 宏？

如何解决为什么我不能使用这个解析 javascript 代码的 Common Lisp 宏？

我正在使用 Nyxt web browser，这是一个有趣的 Common Lisp 应用程序。 Nyxt 旨在成为一个可无限扩展的浏览器。因此，用户可以在程序运行时更改代码和/或创建扩展。这是设计上的实时可入侵性。

可能的扩展之一是为网络浏览器创建一个新命令。创建新命令的方法不止一种。其中之一是使用书签命令。必须突出显示负责定义此命令的宏函数：

(defmacro nyxt::define-bookmarklet-command (name documentation source)
  "Define a bookmarklet command,the source can either be a JavaScript string to
evaluate,or a file:// URL with a file path to a JavaScript source file."
  `(define-command-global,name (&optional (buffer (current-buffer))),documentation
     (let* ((source,source)
            (source (if (nyxt::file-url-p source)
                        (nyxt::read-file-string source)
                        source)))
       (ffi-buffer-evaluate-javascript-async buffer source))))
(sera:export-always 'nyxt::define-bookmarklet-command :nyxt)

此定义位于源代码上的 here。我之前设法为 Nyxt 创建了一个书签命令。基本上，翻译来自这个Javascript片段：

(function() { const rate = prompt('Set the
 new playback rate',2.5); if (rate != null) { const video =
 document.getElementsByTagName('video')[0]; video.playbackRate =
 parseFloat(rate); } })();

转换为以下使用 Nyxt 定义的 common-lisp 片段：

(define-bookmarklet-command live-hack-youtube-speed "Change youtube
 videos speed" "(function() { const rate = prompt('Set the
 new playback rate',2.5); if (rate != null) { const video =
 document.getElementsByTagName('video')[0]; video.playbackRate =
 parseFloat(rate); } })();")

现在，我正在尝试为 Nyxt 进行新的书签自定义。基本上，找到“下一个”页面并单击它。这适用于 the GNU manuals 之类的页面。在 Javascript 中，这是：

(document.querySelectorAll('[rel="next"]'))[0].click()

因此，我使用 Nyxt 的宏尝试了以下操作：

  (define-bookmarklet-command goNext "Follow the link labeled next" 
     "(function() {(document.querySelectorAll('[rel="next"]'))[0].click()})();")

奇怪的是，我收到此错误消息：

解析 defmacro DEFINE-BOOKMARKLET-COMMAND 参数时出错：元素太多（GONEXT“按照标记为下一步的链接” "(function() {(document.querySelectorAll('[rel=" NEXT "]'))[0].click()})();") 满足 lambda 列表 (NAME DOCUMENTATION NYXT/WEB-MODE::SOURCE)：正好是 3 个，但是得到了 5 个 [SB-KERNEL::ARG-COUNT-ERROR 类型的条件]

我不确定为什么会发生这种情况。我正在传递宏 3 参数。但是，错误消息显示为 5。

我在 CL 宏方面存在知识空白。为什么会发生这种情况？

解决方法

事实证明，问题出在不是我对 Common Lisp 宏的理解。其实，这很简单。我需要用 "next" 转义 \"next\" 周围的引号：

(define-bookmarklet-command go-next "no documentation yet" "(function() {(document.querySelectorAll('[rel=\"next\"]'))[0].click()})();")

现在，问题解决了，自定义在 Nyxt 上按预期工作:) REPL 收到定义后返回 T 并且它在 Nyxt 的 GUI 上工作。

NYXT>(define-bookmarklet-command go-next "no documentation yet" "(function() {(document.querySelectorAll('[rel=\"next\"]'))[0].click()})();")
T