Plaster
New
List
Login
common-lisp
default
anonymous
2023.06.01 06:43:07
(defmethod print-object ((o creator) stream) (with-slots (resources externals) o (print-unreadable-object (o stream :type t) (format stream "~%Name: ~15T = ~S~%~ ID: ~15T = ~S~%~ Resources: ~15T = ~{~S~^,~}~%~ Externals: ~15T = ~{~S~^,~}" (name o) (id o) resources externals)))) -> #<CREATOR Name: = "Morgoth" ID: = C7ACFFFE-F20A-56A3-B055-3E425D7BC17E Resources: = D3B0D9B7-CD99-51E2-AFFF-423826B193B8 Externals: = 4A51594F-086A-5681-A420-5DB09C85EF6C> (defmethod print-object ((obj substack) s) (print-unreadable-object (obj s :type t) (format s "~%Creator: ~%~&~10T~A" (creator obj)))) -> #<SUBSTACK Creator: #<CREATOR Name: = "Morgoth" ID: = C7ACFFFE-F20A-56A3-B055-3E425D7BC17E Resources: = D3B0D9B7-CD99-51E2-AFFF-423826B193B8 Externals: = 4A51594F-086A-5681-A420-5DB09C85EF6C>> I want something like #<SUBSTACK Creator: #<CREATOR Name: = "Morgoth" ID: = C7ACFFFE-F20A-56A3-B055-3E425D7BC17E Resources: = D3B0D9B7-CD99-51E2-AFFF-423826B193B8 Externals: = 4A51594F-086A-5681-A420-5DB09C85EF6C>> Is possible??
Raw
Annotate
Repaste
Edit