如何将关键字转换为适合访问插槽的符号？

Question

我有一个有很多插槽的课程.我还有一个构建器函数来创建该类的对象,以便将以下列表传递'(:id "john" :name "John Doe" :age 42)给该函数将构造具有这些插槽值的新对象.我将使用该函数使用列表列表生成多个对象.

如何将关键字转换为可以使用:id的插槽名称SLOT-VALUE？

谢谢.

Answer 1

如果关键字是该类的initargs,那么您可以MAKE-INSTANCE通过APPLY以下方式调用:

(defclass person ()
  ((id   :initarg :id  )
   (name :initarg :name)
   (age  :initarg :age )))


CL-USER > (mapcar
           (lambda (initargs)
             (apply #'make-instance 'person initargs))
           '((:id "john" :name "John Doe" :age 42)
             (:id "mary" :name "Mary Doe" :age 42)))

(#<PERSON 402027AB7B> #<PERSON 402027AC33>)

Answer 2

和功能将对您有所帮助find-symbol。symbol-name如果defclass和slot-value发生在同一个包中，您可以按如下方式使用这些函数：

(defclass person ()
  ((id :initarg :id)
   (name :initarg :name)
   (age :initarg :age)))

(slot-value (make-instance 'person :id "john" :name "John Doe" :age 42)
            (find-symbol (symbol-name :id)))

如果defclass和slot-value发生在两个不同的包中，则需要给出发生的find-symbol包的名称defclass：

(in-package #:common-lisp-user)

(defpackage #:foo
  (:use #:common-lisp)
  (:export #:person))

(defpackage #:bar
  (:use #:common-lisp #:foo))

(in-package #:foo)

(defclass person ()
  ((id :initarg :id)
   (name :initarg :name)
   (age :initarg :age)))

(in-package #:bar)

(slot-value (make-instance 'person :id "john" :name "John Doe" :age 42)
            (find-symbol (symbol-name :id) 'foo))

(find-symbol name &optional (package (sane-package)))

功能：返回PACKAGE中名为STRING的符号。如果找到这样的符号，则第二个值为 :INTERNAL、:EXTERNAL 或 :INHERITED，以指示如何访问该符号。如果没有找到符号，则两个值均为 NIL。

(symbol-name symbol)

功能：以字符串形式返回 SYMBOL 的名称。