Wie definiert man ein Makro wie defstruct?

Question

Wir definieren eine Struktur wie auf diese Weise

(defstruct point 
    x 
    y) 

Dann haben wir eine Funktion erhalten point-p

Es scheint einfach ein Makro

(defmacro mac (fun-name) 
    `(defun ,fun-name() 
    t)) 

Aber wie kann man definieren kann ich „-p“ hinzufügen, ein Suffix auf fun-name? Ich denke, es ist so etwas wie

(defmacro mac (fun-name) 
    `(defun ,(suffix ,fun-name)() 
    t)) 

suffix kann eine Funktion sein kann. Wie kann ich das tatsächlich umsetzen?

Answer 1

Sie verwenden einfach string, um eine Zeichenfolge aus Ihrem Symbol zu machen. Tun Sie, was Sie wollen und intern es ein internes Symbol erhalten, das Sie als Bezeichner verwenden können.

(defun suffix (symbol suffix) 
    (intern (concatenate 'string (string symbol) (string suffix)))) 

(defmacro make-predicate (fun-name) 
    `(defun ,(suffix fun-name '#:-p)() 
    t)) 
(make-predicate test) 
(test-p) ; ==> t 

NB: Sie haben einen Fehler in Ihrem Makro, wie Sie das Komma (unquote) innerhalb eines bereits unquoted Ausdruck verwenden.