Question

如何有条件地删除在lisp宏中创建的defun中的let-binding？在这里，我想从结果函数中删除第一个let-bound变量，但是我遇到了一个问题，即我在let绑定中有nil，导致错误。

例如，生成的函数使用let或let*，并应根据arg删除第一个变量赋值。但我编写问题的方式来自于用var1替换nil。我不知道如何摆脱零。

(cl-defmacro mac (cmd &optional arg)
  (let ((fn (intern (concat "fn-" cmd))))
    `(defun ,fn ()
       (interactive)
       (,(if arg 'let* 'let)
        (cons
         ,(when arg
            '(var1 1))
         (var2 (if (bound-and-true-p var1) (+ var1 1) 1)))
        (message "%s" var2)))))

(mac "fun")    ; Attempt to set constant: nil
(mac "fun2" t) ; no problem
;; (symbol-function 'fn-fun)
;; (symbol-function 'fn-fun2)
;; (fn-fun)
;; (fn-fun2)

Answer 1

最简单的解决方法可能是使用,@(when arg '((var1 1)))。 ,@用于将列表拼接到位置。如果条件失败，WHEN返回NIL，并且NIL与空列表相同，则拼接会有效地忽略它。当条件成功时，将返回((var1 1))，并且拼接将解除(var1 1)。

有条件地删除lisp宏

1 个答案: