如何在LISP函數中調用宏？

Question

讓我們假設我得到了下面的宏：

(defmacro my-check (number) 
    `(> 3 ,(apply #'+ number))) 

我如何可以調用一個函數這個宏？

我試過了，例如，下面的功能：

(defun do-test (my-object) 
    (my-check my-object))) 

但在編譯時，我得到了以下錯誤：

during macroexpansion of (MY-CHECK MY-OBJECT). Use *BREAK-ON-SIGNALS* to 
intercept. 
The value MY-OBJECT is not of type LIST. 

Answer 1

在宏逗號是放錯了地方。它試圖在宏展開期間評估整個(apply ...)，這當然因爲number是符號而不是列表而失敗。請記住，宏在編譯期間擴展，而不是在運行時擴展。

正確的版本是：

(defmacro my-check (number) 
    `(> 3 (apply #'+ ,number)))