gpt4 book ai didi

emacs - 如何评估非粘液缓冲区中的 Common Lisp 代码?

转载 作者:行者123 更新时间:2023-12-01 10:00:41 26 4
gpt4 key购买 nike

我希望能够获得我的 SBCL 1.4.5 (Linux x86_64)Emacs 'inferior-lisp-process' 评估 S-Expression (sexp)在一些不是“粘液”缓冲区的 Emacs 缓冲区中 - 我有最新的 quicklisp 和 slime-2.20 .

我认为这与 中的问题完全相同: How to run Common Lisp code with Slime in Emacs Lisp但事实并非如此——我的问题是当我尝试运行“slime-eval”或任何粘液“在劣质 lisp 过程中运行”方法所有符号似乎都是仅在 SWANK-IO-PACKAGE 命名空间中查找:

 In my Emacs '*scratch*' buffer:

(slime-eval '(symbolp '+) "CL-USER")

产生回溯错误:

   The function SWANK-IO-PACKAGE::SYMBOLP is undefined.
[Condition of type UNDEFINED-FUNCTION]

Restarts:
0: [CONTINUE] Retry calling SWANK-IO-PACKAGE::SYMBOLP.
1: [USE-VALUE] Call specified function.
2: [RETURN-VALUE] Return specified values.
3: [RETURN-NOTHING] Return zero values.
4: [*ABORT] Return to SLIME's top level.
5: [ABORT] abort thread (#<THREAD "worker" RUNNING {100262C8E3}>)

Backtrace:
0: ("undefined function" SWANK-IO-PACKAGE::+)
1: (SB-INT:SIMPLE-EVAL-IN-LEXENV \
(SWANK-IO-PACKAGE::SYMBOLP (QUOTE SWANK-IO-PACKAGE::+)) \
#<NULL-LEXENV>)
2: (EVAL (SWANK-IO-PACKAGE::SYMBOLP (QUOTE SWANK-IO-PACKAGE::+)))

我是否这样做都没有关系:

    (slime-eval '(symbolp :+) "CL-USER")

    (slime-eval '(symbolp '+))

我仍然得到同样的错误,因为 '+ 和 :+ 是始终只在 SWANK-IO-PACKAGE 命名空间中查找。

我通过简单地尝试运行发现了这一点,这是我的第一次测试:

     (slime-eval '(+ 2 2) "CL-USER")

在输出缓冲区中打印另一个回溯

     The function SWANK-IO-PACKAGE::+ is undefined.
[Condition of type UNDEFINED-FUNCTION]

我确实尝试了问题 #22456086 中的代码片段:

    (require 'slime)
(defun slrepl (str)
"Eval STR as Common Lisp code."
(unless (slime-current-connection)
(let ((wnd (current-window-configuration)))
(slime)
(while (not (and (slime-current-connection)
(get-buffer-window (slime-output-buffer))))
(sit-for 0.2))
(set-window-configuration wnd)))
(let (deactivate-mark)
(cadr (slime-eval `(swank:eval-and-grab-output ,str)))))

这样做:

    (slrepl '(symbol-function '+))^X^E

结果仍然是:

    The function SWANK-IO-PACKAGE::SYMBOL-FUNCTION is undefined.
[Condition of type UNDEFINED-FUNCTION]

对默认 SB_INT 命名空间的访问似乎被拒绝。

如何为这种情况启用它?

我希望能够从任何缓冲区向同一个 emacs inferior-lisp-process (sbcl) 发送表单并从中读取结果,而不仅仅是从 slime '粘液 repl sbcl' 缓冲区。有什么办法吗?

显然,我可以编写一个 Emacs Lisp 函数来切换到slime repl 缓冲区并在该缓冲区中进行评估。当然,上面所有的例子,例如。 (eval '(symbolp '+)) ,在 slime-repl 缓冲区中工作正常。我想没有办法关于切换到 slime-repl 缓冲区?

这可能会澄清:

在“scratch”中:

     (slime-eval '(SB-INT:symbolp 'SB-INT:+) "CL-USER")^X^E

在粘液输出缓冲区中:

    Invalid protocol message:
The symbol "SYMBOLP" is not external in the SB-INT package.

Line: 1, Column: 26, File-Position: 26

Stream: #<SB-IMPL::STRING-INPUT-STREAM {1002A1CD63}>

(:emacs-rex (SB-INT:symbolp (quote SB-INT:+)) "CL-USER" t 78)

所以,在 slime-repl 缓冲区中,我可以:

    CL-USER> (PROGN (IN-PACKAGE "COMMON-LISP-USER") (+ 2 2))
4
CL-USER> (PROGN (IN-PACKAGE "SB-IMPL") (symbol-function '+))
#<FUNCTION +>
CL-USER> (PROGN (IN-PACKAGE "SB-IMPL") (symbol-function '+))
#<FUNCTION +>
SB-IMPL> (PROGN (IN-PACKAGE "SB-INT") (symbol-function '+))
#<FUNCTION +>

但是如果我尝试在任何环境中运行相同的“slime-eval”函数其他缓冲区,例如。 '从头开始':

    (slime-eval '(PROGN (COMMON-LISP-USER:IN-PACKAGE "COMMON-LISP-USER") 
(symbol-function '+)) :COMMON-LISP-USER)

Invalid protocol message:
The symbol "IN-PACKAGE" is not external in the
COMMON-LISP-USER package.

Line: 1, Column: 46, File-Position: 46

我已经尝试了上面列出的所有可能的 PACKAGE 名称粘液评估具有相同的结果。无论我使用“slrepl”代码片段还是简单的,都会发生同样的事情slime-eval - 没有可用的 lisp 标准语法符号。我需要加载 lisp 语法表或其他东西?

RE: 我可以切换到 slime repl buffer 来做吗? : 不 ! :

    (require 'slime)
(let ((slbuf (get-buffer "*slime-repl sbcl*")))
(if (eq nil slbuf)
(error "please start slime (M-x slime)")
(progn (set-buffer slbuf)(slime-eval '(+ 2 2) "COMMON-LISP-USER"))
)
)^X^E

结果仍然是:

    The function SWANK-IO-PACKAGE::+ is undefined.
[Condition of type UNDEFINED-FUNCTION]

我是一个生疏的/回归的 LISP 用户,也是 SBCL 和 slime 的新手。我真的很想集成 Emacs 出色的编辑和文件管理功能与外部 CL XML 和 HTML 生成和解析的交互设施工具。但首先,我只想找到这个问题的根源......

最佳答案

+symbolp 等 Common Lisp 符号位于 COMMON-LISP 包中。简称 CL。这些符号通常不会从包 CL-USER 导出。因此 symbolp 可以被引用为 cl:symbolp。这些符号可在包 CL-USER 中访问,但不能从那里导出。因此,您还可以将 cl:symbolp 引用为 cl-user::symbolp -> 请注意两个冒号。

在表单中调用 IN-PACKAGE 不会影响表单本身,因为表单已被读取。尽管它可以调用读取器函数或类似 find-symbol 的函数。

CL-USER 5 > (defpackage "FOO" (:use))
#<The FOO package, 0/16 internal, 0/16 external>

CL-USER 6 > (progn (in-package "FOO")
(list 'bar (read-from-string "BAR")))
(COMMON-LISP-USER::BAR BAR) ; we now print from package "FOO"

在 Emacs Lisp 中使用 SLIME-EVAL

最好将它与一个表单一起使用,该表单读取 Common Lisp 端的表达式并且不涉及 Emacs Lisp 阅读器/打印机:

ELISP> (slime-eval '(cl:eval (cl:read-from-string "(+ 1 2)")) "CL-USER")
3 (#o3, #x3, ?\C-c)
ELISP> (slime-eval '(cl:eval (cl:read-from-string "'foo")) "CL-USER")
common-lisp-user::foo

但在这里您会看到结果通过 Emacs Lisp 阅读器返回到 Emacs Lisp - 那里不存在包。

因此 SLIME-EVAL 作为一个简单的远程执行接口(interface)毫无意义......

关于emacs - 如何评估非粘液缓冲区中的 Common Lisp 代码?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/49476788/

26 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com