Guile Scheme GOOPS插槽访问器不是有效的通用函数错误

问题描述

我正在学习Guile GOOPS。我的插槽访问器有问题。下面的代码

(use-modules (oop goops))

(define-class <person> ()
  (name #:init-keyword #:name
        #:accessor person-name))

(let ([p (make <person> #:name "Vlad")])
  (display (person-name p)))

给出错误：oop / goops.scm：1585：2：＃不是有效的泛型函数

我做错了什么？

解决方法

问题中的代码是正确的，并且可以正常工作。 person-name访问者名称与我的测试文件person记录中具有相同访问者名称的上述定义发生冲突。

guile scheme