У меня есть очень простая структура данных, которую я определил в Лиспе:

;;Data structure for a person

(defstruct person
  (name nil)
  (age 0)
  (siblings nil :type list))   ;; Siblings is a list of person objects

Затем я приступаю к созданию нескольких объектов:

(setf person-a (make-person :name 'Tim :age 23))
(setf person-b (make-person :name 'Sally :age 21))
(setf person-c (make-person :name 'Louis :age 24))

Затем я связываю братьев и сестер (предположим, что они все братья и сестры друг друга):

(setf (person-siblings person-a) (list person-b person-c))
(setf (person-siblings person-b) (list person-a person-c))
(setf (person-siblings person-c) (list person-b person-a))

Как я могу распечатать информацию об объектах, которые я создал и модифицировал? Я изучил параметры defstruct в отношении print-object и print-function, но я не могу понять, как правильно печатать мои объекты. Используя что-то вроде:

(print person-a)

отправляет мой интерпретатор ACL в бесконечный цикл.