如何在 Steel Bank Common Lisp (SBCL) 中使用 `class-direct-superclasses` 和 `class-precedence-list`？

发布于 2025-01-12 17:56:00 字数 595 浏览 0 评论 0原文

在像 this one 这样的教程中，人们可以简单地使用：

CL-USER> (class-precedence-list (find-class (class-name (class-of 123))))

在 LispWorks 中，它们是可通过默认的包使用列表获得，在 Allegro 中它们是从 ACLMOP 导出的。

但是，如何在 SBCL 中使用 class-precedence-list 和 class-direct-superclasses 呢？

观察：通过 The Common Lisp Cookbook< 在 CLOS 上有本教程的新版本/a>.

原文

In tutorials such as this one, one can simply use:

CL-USER> (class-precedence-list (find-class (class-name (class-of 123))))

In LispWorks they're available via your default package-use-list, in Allegro they're exported from ACLMOP.

But, how to use class-precedence-listand class-direct-superclasses in SBCL?

Obs.: There is a new version of this tutorial on CLOS via the The Common Lisp Cookbook.

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

掩耳倾听 2025-01-19 17:56:00

在 SBCL 中，需要使用包符号从 sb-mop 导入符号：

CL-USER> (sb-mop:class-direct-superclasses (find-class (class-name (class-of 123))))
(#<BUILT-IN-CLASS COMMON-LISP:INTEGER>)

CL-USER> (sb-mop:class-precedence-list (find-class (class-name (class-of 123))))
(#<BUILT-IN-CLASS COMMON-LISP:FIXNUM> #<BUILT-IN-CLASS COMMON-LISP:INTEGER>
 #<BUILT-IN-CLASS COMMON-LISP:RATIONAL> #<BUILT-IN-CLASS COMMON-LISP:REAL>
 #<BUILT-IN-CLASS COMMON-LISP:NUMBER> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>)

In SBCL, it is necessary to use package notation importing the symbol from sb-mop:

CL-USER> (sb-mop:class-direct-superclasses (find-class (class-name (class-of 123))))
(#<BUILT-IN-CLASS COMMON-LISP:INTEGER>)

CL-USER> (sb-mop:class-precedence-list (find-class (class-name (class-of 123))))
(#<BUILT-IN-CLASS COMMON-LISP:FIXNUM> #<BUILT-IN-CLASS COMMON-LISP:INTEGER>
 #<BUILT-IN-CLASS COMMON-LISP:RATIONAL> #<BUILT-IN-CLASS COMMON-LISP:REAL>
 #<BUILT-IN-CLASS COMMON-LISP:NUMBER> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>)

回复收藏 0 原文

~没有更多了~