Lisp: ¿Cómo sobrescribir la representación de cadena predeterminada para la clase CLOS?

Question

En Common Lisp, ¿cómo puedo anular la representación de cadena predeterminada de una clase CLOS para que las llamadas a format o princ impriman algo inteligible, incluso cuando los objetos de esa clase están incrustados en otros tipos, como listas o matrices?

Por ejemplo, si llamo a (format t "~a~%" x) cuando x contiene una instancia de mi clase de solución, quiero que imprima algo como #<SOLUTION genes: #(1 2 3) scores: #(4 5) rank: 6> en lugar de .

Hasta ahora, todo lo que he logrado averiguar es escribir funciones personalizadas para manejar estructuras de impresión que sé que contendrán instancias de esta clase, pero esto es tedioso. ¿Seguramente Lisp proporciona alguna forma de obtener esta funcionalidad gratis?

Answer 1

Consulte print-object.

Answer 2

Debería estar mirando print-object y print-unreadable-object. Suponga que tiene una clase denominada FOO así:

(defclass foo() 
    ((name :accessor foo-name))) 

y que desea imprimir casos como éste: #<FOO "xyz"> donde "xyz" es el contenido de la ranura name. En este caso, la siguiente ejecución de print-object haría lo que quiere:

(defmethod print-object ((obj foo) out) 
    (print-unreadable-object (obj out :type t) 
    (format out "~s" (foo-name obj)))) 

Answer 3

Si también mira 22.1.3.13 Printing Other Objects que sugiere print-unreadable-object como una macro formato común para este tipo de situaciones