为什么' class-name '在REPL中不起作用?

Question

我在读Sonja Keene写的Object Oriented Programming in Common Lisp这本书。

在第七章中，作者提出:

(class-name class-object)

这将使查询类对象的名称成为可能。

使用SBCL和SLIME的REPL，我尝试:

; SLIME 2.26.1
CL-USER> (defclass stack-overflow () 
((slot-1 :initform 1 )
(slot-2 :initform 2)))
#<STANDARD-CLASS COMMON-LISP-USER::STACK-OVERFLOW>
CL-USER> (make-instance 'stack-overflow)
#<STACK-OVERFLOW {1002D188E3}>
CL-USER> (defvar test-one (make-instance 'stack-overflow))
TEST-ONE
CL-USER> (slot-value test-one 'slot-1)
1
CL-USER> (class-name test-one)
; Evaluation aborted on #<SB-PCL::NO-APPLICABLE-METHOD-ERROR {10032322E3}>.

上面的代码返回下面的错误消息:

There is no applicable method for the generic function
#<STANDARD-GENERIC-FUNCTION COMMON-LISP:CLASS-NAME (1)>
when called with arguments
(#<STACK-OVERFLOW {1003037173}>).
[Condition of type SB-PCL::NO-APPLICABLE-METHOD-ERROR]

如何正确使用class-name?

谢谢。

Answer 1

class-name的参数必须是类对象，而不是类的实例。

使用class-of获取实例的类，然后调用class-name

(class-name (class-of test-one))

Answer 2

在注释上使用@Barmar的提示，这将是class-name:

的正确方法。

CL-USER> (class-name (defclass stack-overflow () 
((slot-1 :initform 1 )
(slot-2 :initform 2))))
STACK-OVERFLOW

class-name接收一个类的参数。为了使用实例，正确的方法是使用class-of:

CL-USER> (class-of 'test-one)
#<BUILT-IN-CLASS COMMON-LISP:SYMBOL>

我不确定为什么class-name会有帮助。