Lisp: Jak zastąpić domyślną reprezentację ciągów dla klasy CLOS?

Question

W Common Lisp, w jaki sposób mogę przesłonić domyślną reprezentację ciągów klasy CLOS, aby wywołania do format lub princ mogły drukować coś zrozumiałego, nawet jeśli obiekty tej klasy są osadzone w innych typach, takich jak listy lub tablice?

Na przykład, jeśli zadzwonię pod numer (format t "~a~%" x), gdy x ma instancję klasy mojego rozwiązania, chcę, aby wydrukował coś w rodzaju #<SOLUTION genes: #(1 2 3) scores: #(4 5) rank: 6> zamiast #<SOLUTION {BB7CD31}>.

Do tej pory wszystko, co udało mi się wymyślić, to pisanie niestandardowych funkcji do obsługi struktur drukowania, które, jak wiem, będą zawierać wystąpienia tej klasy, ale jest to uciążliwe. Z pewnością Lisp zapewnia jakiś sposób na uzyskanie tej funkcjonalności za darmo?

Answer 1

Sprawdź print-object.

Answer 2

Powinieneś zobaczyć print-object i print-unreadable-object. Załóżmy, że masz klasę o nazwie FOO tak:

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

I chcesz wydrukować instancje tak: #<FOO "xyz"> gdzie "xyz" jest treść gniazda name. W tym przypadku, po wdrożenie print-object by robić to, co chcesz:

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

Answer 3

Jeżeli również spojrzeć 22.1.3.13 Printing Other Objects sugeruje print-unreadable-object jako wspólny format makro dla takich sytuacjach