[Lisp-cn] [CL]有没有办法像定义结构的显示方式一样定义对象的显示方式？

[宋为@凉拌茶叶]

《ANSI Common Lisp》在介绍结构的时候有这么一段例子：

(defstruct (point (:conc-name p)
(:print-function print-point))
(x 0)
(y 0))
(defun print-point (p stream depth)
(format stream "#<~A, ~A>" (px p) (py p)))

这样可以定义 point 结构的显示方式，那么有没有类似的办法来定义对象的显
示方式呢？

[宋为@凉拌茶叶]

Oops，才发现栈爆网上面有

|(defclass foo()
((name:accessor foo-name)))|
|(defmethod print-object((obj foo) out)
(print-unreadable-object(obj out:typet)
(format out"~s" (foo-name obj))))|
《ANSI Common Lisp》在介绍结构的时候有这么一段例子：

(defstruct (point (:conc-name p)
(:print-function print-point))
(x 0)
(y 0))
(defun print-point (p stream depth)
(format stream "#<~A, ~A>" (px p) (py p)))

这样可以定义 point 结构的显示方式，那么有没有类似的办法来定义对象的显
示方式呢？