2

问题

给定一个实例，以及一个包含插槽inst名称的字符串，如何获取插槽上的值？attrattrinst

当然，如果attr是符号而不是字符串，我通常只会使用(slot-value inst attr)，但似乎我需要包信息才能正确调用intern（见下文）。

最小的例子

(defpackage :pack1
  (:use :common-lisp)
  (:export :*inst*))

(in-package :pack1)

(defclass temp-class ()
  ((temp-slot :initarg :temp-slot)))

(defvar *inst* (make-instance 'temp-class :temp-slot "value"))

(defpackage :pack2
  (:use :common-lisp :pack1)
  (:import-from :pack1 :temp-class))

(in-package :pack2)

(let ((inst *inst*)  ; In the real example, inst gets defined outside my control,
                     ; in yet another package
      (attr "temp-slot"))
  (format t "Given package name: ~S; "  ; prints fine
          (slot-value inst (intern (string-upcase attr) :pack1)))
  (format t "No package name: ~S; "  ; signals an error
          (slot-value inst (intern (string-upcase attr)))))

现有技术

  • 从这个问题，我发现我的问题是intern在与定义类的包不同的包中创建符号。
  • 从这个问题看来，我不能简单地从实例中提取包信息，所以我必须想出另一种方法（除了使用intern到达那里）

背景

我正在py-format研究 Python 格式的 Common Lisp 端口{}。为了实现 Python.运算符 ( getattr)，我需要将点后面的字符串转换为点前面的对象上的一个槽。

4

1 回答 1

3

给定一个实例，inst 和一个包含插槽名称的字符串 attr，如何获取 inst 上插槽 attr 的值？

插槽没有字符串作为插槽名称，而是符号。由于插槽名称可以是任意符号，因此如果您只有一个字符串，则没有一般的方法来获取插槽值。

CL-USER 124 > (defclass foo ()
                ((s)             ; the slot-name is cl-user::s
                 (system::s)     ; the slot-name is  system::s
                 (#:s)))         ; the slot-name is        #:s
#<STANDARD-CLASS FOO 413054236B>

最后一个 slot-name 是一个 uninterned 符号。它没有包装。因此，如果您没有将其存储在某处，则无法以任何方式查找它。

CL-USER 125 > (make-instance 'foo)
#<FOO 402013F043>

CL-USER 126 > (describe *)

#<FOO 402013F043> is a FOO
S      #<unbound slot>
S      #<unbound slot>
S      #<unbound slot>

如您在上面看到的，它有三个插槽。每个符号都有名称s，但实际上是不同的符号。

您可以通过自省获取插槽名称：

CL-USER 127 > (mapcar #'slot-definition-name
                      (class-direct-slots (find-class 'foo)))
(S SYSTEM::S #:S)

便携功能见CLOSER-MOP。

于 2014-10-07T21:24:20.973 回答