我们这样定义一个结构
(defstruct point
x
y)
Run Code Online (Sandbox Code Playgroud)
然后我们得到一个功能 point-p
定义一个宏似乎很容易
(defmacro mac (fun-name)
`(defun ,fun-name ()
t))
Run Code Online (Sandbox Code Playgroud)
但是如何添加"-p"作为后缀fun-name呢?我想它可能是这样的
(defmacro mac (fun-name)
`(defun ,(suffix ,fun-name) ()
t))
Run Code Online (Sandbox Code Playgroud)
suffix可能是一个功能.那么我实际上可以实现这个呢?