小编use*_*377的帖子

如何定义像defstruct一样的宏?

我们这样定义一个结构

(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可能是一个功能.那么我实际上可以实现这个呢?

macros common-lisp

4
推荐指数
1
解决办法
117
查看次数

标签 统计

common-lisp ×1

macros ×1