Erstellen Sie einen Klassenaccessornamen aus einem String in einem CL-Makro

Question

Ich versuche den folgenden Code, um einen Makro zu schreiben, der eine Klasse mit einer name Instanzvariable und einem Accessor für das Formular automatisch erstellt von classname-name.

(defmacro def-named-class (class-name) 
    `(defclass ,class-name() 
    ((name :accessor ,(intern (format nil "~A-~A" class-name "name")) 
      :initarg :name 
      :initform "")))) 

Das Problem hier ist, dass, wenn das Makro ausgeführt wird, etwa mit einem Argument foo, der Name der Accessorfunktion als |FOO-name| kommt, aber ich würde es nur foo-name sein wollen. Der Grund ist, (intern "foo-name") gibt ein Symbol |foo-name| zurück. Allerdings, wenn ich versuchen, das gleiche mit einer normalen Funktion zu tun, wie folgt aus:

(defmacro def-hyp (name1 name2 arg-list &body body) 
    `(defun ,(intern (format nil "~A-~A" name1 name2)) 
      ,arg-list 
      ,@body)) 

Und es dann nennen wie (def-hyp foo name() 'foo-name) es produziert richtig eine Funktion mit dem Namen foo-name. Ich frage mich also, ob es eine Methode gibt, um genau das gleiche Symbol aus der Zeichenfolgendarstellung im ersten Makro zu erhalten. Ich benutze Clozure CL.

Answer 1

Sie sollten die Namen in Großbuchstaben umwandeln:

(defmacro def-named-class (class-name) 
    `(defclass ,class-name() 
    ((name :accessor ,(intern (format nil "~A-~A" (string-upcase class-name) "NAME")) 
      :initarg :name 
      :initform "")))) 

Ein andere Möglichkeit ist, wie in einem Kommentar von jkiiski vorgeschlagen, nur das Format-String zu ändern:

... 
((name :accessor ,(intern (format nil "~:@(~A-~A~)" class-name "name")) 
... 

Der Grund dafür ist, dass Das Standardverhalten des Common-Lisp-Readers besteht darin, jedes Symbol beim Lesen in Großbuchstaben umzuwandeln. Wenn Sie also foo-name schreiben, wird es automatisch in FOO-NAME umgewandelt. Um es zu erhalten, sollten Sie (intern "FOO-NAME") verwenden. Wenn Sie möchten, können Sie jedoch das Standardverhalten des Lesers ändern (siehe manual).

Answer 2

Beachten Sie, dass eine Klasse bereits einen Namen hat.

CL-USER 19 > (defclass foo()()) 
#<STANDARD-CLASS FOO 415040BE6B> 

CL-USER 20 > (class-name *) 
FOO 

Answer 3

Ist es nicht besser durch Vererbung gelöst? Hier ist Ihre mixin:

(defclass named() 
    ((name :initarg :name :accessor name-of))) 

... und Sie können es für alle anderen Klassen verwenden, die Objekte definieren, die einen Namen haben:

(defclass this (named) ...) 
(defclass that (named) ...)