主页 / coding / 问题 / 79560667
Accepted
Alexander Shcheblikin
Asked: 2025-04-08 03:47:40 +0800 CST

如何在 setq 中使用带引号的函数？

  • 772

假设我设置了一个这样的变量：

(setq var '((:item1 "stringA") (:item2 "stringB")))

（这有效）

现在我希望“stringA”是一个条件，如下所示：

(setq var '((:item1 (if (> 6 (string-to-number (format-time-string "%u")))
                     "stringA"
                     "stringC"))
            (:item2 "stringB") ))

这行不通，可能是因为引用运算符（或者函数？）的问题。应该怎么写才能让它正常工作？

lisp

1 个回答

  1. Best Answer

    引用列表中的内容不会被求值。您必须调用函数来动态构造列表：

    (setq var 
      (list (list :item1
                  (if (> 6 (string-to-number (format-time-string "%u")))
                      "stringA" "stringC"))
            '(:item2 "stringB")))

    或者您可以使用反引号来指定列表中应为文字并进行评估的部分。

    (setq var
      `((:item1 
         ,(if 
           (> 6 (string-to-number (format-time-string "%u")))
           "stringA" "stringC"))
        (:item2 "stringB") ))

    在反引号表达式中，逗号（看起来像倒置的引号）标记应该评估的表达式。

    • 5

相关问题