如何在非黏液缓冲器中评估通用Lisp代码？

Question

我希望能得到我的SBCL 1.4.5 (Linux x86_64) the s‘下级-lisp-进程’评估一个S-表达式(性别p)在一些Emacs缓冲区，而不是‘黏液’缓冲区-我有最新的快速和幻灯片-2.20。

我认为这与How to run Common Lisp code with Slime in Emacs Lisp完全相同，但事实并非如此--我的问题是，当我尝试运行“same”或任何“在低劣的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-包命名空间中查找。

我在第一次测试中通过尝试运行就发现了这一点：

     (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下级lisp进程(sbcl)的结果，而不仅仅是从粘着的sbcl缓冲区中读取结果。有办法这样做吗？

显然，我可以编写一个Emacs函数来切换--切换到slime缓冲区并在该缓冲区中进行计算。当然，以上所有的例子，如。(eval‘(符号p '+))，在粘稠缓冲液中很好地工作.我想没有办法绕过-切换到黏液-回购缓冲器？

这可能会澄清：

在“抓”一词中：

     (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)

所以，在黏液缓冲液中，我可以：

    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 '(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

我尝试了上面列出的所有可能的包名，结果都是一样的。无论我是使用“slrepl”代码片段，还是只使用普通的粘稠代码段-没有lisp标准语法符号，也会发生同样的情况。我需要加载lisp语法表吗？

我可以切换到黏液缓冲液吗？：不！：

    (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和黏液。我真的很想把Emacs强大的编辑、文件管理和交互功能与外部的CL XML和HTML生成和解析工具集成在一起。但首先，我只想找出问题的根源.

Answer 1

常见的Lisp符号(如+和symbolp )都在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中的应用

最好将它与一个表单一起使用，该表单在Common端读取表达式，而不涉及Emacs阅读器/打印机：

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阅读器返回到Emacs中的--在那里不存在包。

因此，作为一个简单的远程执行接口，SLIME-EVAL没有什么意义。

Answer 2

现在起作用了！谢谢！

    (require 'slime)
    (defun CL$ (str)
      (let ((slbuf (get-buffer "*slime-repl sbcl*")))
        (if (eq nil slbuf)
            (error "Please start slime (M-x slime).")
            (progn
             (set-buffer slbuf)
             (slime-eval str "CL")
            )
         )
      )
   )
   (CL$ '(cl:+ 2 2))
   => 4

但我不完全理解为什么我必须在所有符号前面加上CL，或者为什么这仍然不起作用：

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

但这确实是：(黏液-eval '(cl:+ 2 2) "CL")

我以为第三个参数是要输入到当前的包中？所以为什么我要在每一个符号上加上“cl”。但是谢谢你的帮助，还有一个很棒的黏液+ sbcl。