主页 / user-17814577

Demihm Seinname's questions

Martin Hope
Demihm Seinname
Asked: 2025-03-24 04:57:27 +0800 CST
  • 5

我有这个宏：

(defmacro if (test-form &body body)
  (let ((test (gensym)))
    `(let ((,test (cl:if (booleanp ,test-form)
                         (cl-truth ,test-form)
                         ,test-form)))
       (cl:if ,test
              ,@body))))

使用它的结果是：

LO> (if (wordp (wordify ""))
        (print 1)
        (print 0))
NIL

（您可以看到，我在一个由lo组成的包中工作，但在 中。——该函数用于创建对应的 的实例。谓词检查谓词的输出是否为。然后返回第二个值。）:usecommon-lispcl:if:shadowwordifymake-worddefstructbooleanp=> TRUE, t=> FALSE, nilcl-truth

macroexpand-1在这里没有用。它返回=> NIL, NIL

如果我尝试考虑可能的输出，我会发现destructuring-bind一个有用的工具：

(destructuring-bind (test-form &body body)
    '((wordp (wordify "")) (print 1) (print 0))
  (let ((test (gensym)))
    `(let ((,test (cl:if (booleanp ,test-form)
                         (cl-truth ,test-form)
                         ,test-form)))
       (cl:if ,test
              ,@body))))

输出为：

(LET ((#:G698
       (COMMON-LISP:IF (BOOLEANP (WORDP (WORDIFY "")))
                       (CL-TRUTH
                         (WORDP (WORDIFY "")))
                       (WORDP (WORDIFY "")))))
  (COMMON-LISP:IF #:G698
                  (PRINT
                    1)
                  (PRINT
                    0)))

结果就是期望的：

1
; No value

print（这是使用princ没有返回值的习惯。）

你能告诉我为什么宏的行为不同吗？

非常感谢。

编辑：

只是添加一个可能更合适的宏版本，但没有解决奇怪的行为。

(defmacro if-c (test-form instructionlist1 &optional instructionlist2)
  (let ((test (gensym)))
    `(let (;; The general Logo testform will return => TRUE, T / FALSE, NIL
           (,test (destructuring-bind (logo &optional cl)
                      (multiple-value-list ,test-form)
                    (cl:if (booleanp logo)
                           cl
                           (error "if doesn't like ~a as input"
                                  logo)))))
       (cl:if ,test
              ,instructionlist1
              ,instructionlist2))))

编辑2：

我忘了说了：是的，奇怪的行为已经解决了。简单地说，包上方的宏LC并没有在包中展开，LO而是展开了下面的宏：

(defmacro if (test-form &body body)
  ())

LO在我决定将它移至 之前，它是我准备定义它的地方的残留部分LC。

macros
Martin Hope
Demihm Seinname
Asked: 2025-03-22 16:33:50 +0800 CST
  • 7

我曾经在某处读到，我们可以将全局 Emacs 变量设置为T（或者NIL，我不知道）以便（大致）使 Emacs 可以从 Common Lisp 访问。

此信息附带警告，即这可能会产生不良副作用。我想避免这种情况，这就是为什么我把所有信息都记在心里/dev/null。

但是：有没有一种方法，可以让它slime-repl在函数的狭窄上下文中就能被它所承载的 Common Lisp 识别？

我想写一个函数，最好重新绘制整个 Emacs 窗口，就像中slime-clear-screen的效果一样。或者，根据当前窗口大小的行数重复。C-c M-oslime(format t "~%")

所以我想我需要找到一种方法来访问 Emacs 窗口控件或其大小信息。

但是在 Slime/Emacs 键和弦配置请求和 ANSI 转义序列的噪音中，我很难听到有希望的信息。

你知道我需要什么吗？或者更好的是：你知道一个已经提供同等功能的公共库吗？虽然我真的喜欢修修补补，但我也会明确地从大量库中寻找常用或值得推荐的库，以建立一个一致的开源“准标准”库框架。

我非常感谢您的建议。

common-lisp