CLマクロ内で文字列からクラスアクセサー名を作成

Question

クラス名を指定すると、nameインスタンス変数とそのアクセサーをフォームに自動的に作成する次のコードを試していますclassname-name。

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

ここでの問題は、マクロの実行は、引数fooと言うとき、アクセサ関数の名前が|FOO-name|として来る、ということですが、私はそれだけでfoo-nameになりたいです。理由は、(intern "foo-name")はシンボル|foo-name|を返します。

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

そしてそれは正しく名前foo-nameと機能を生成(def-hyp foo name() 'foo-name)のようにそれを呼び出します。しかし、私はこのように、正常な機能を同じことをしようとした場合。だから私は最初のマクロ内の文字列表現から正確に同じシンボルを取得する方法があるのだろうかと思います。私はClozure CLを使用しています。

Answer 1

あなたが大文字に名を変換する必要があります。

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

別の可能性、jkiiskiによってコメントで提案されているように、唯一のフォーマット文字列を変更することです：

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

理由はということですCommon Lispリーダーのデフォルトの動作は、それを読む際に大文字のシンボルを変換することです。したがって、foo-nameと書くと、自動的にFOO-NAMEに変換されます。取得するには、(intern "FOO-NAME")を使用してください。ただし、必要に応じて、リーダーのデフォルトの動作を変更することができます（manualを参照）。

Answer 2

クラスにはすでに名前があります。

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

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

Answer 3

継承によってうまく解決されませんか？

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

...そしてあなたが名前を持つオブジェクトを定義する他のすべてのクラスのためにそれを使用することができます：ここにあなたのミックスインである

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