Plaster
New
List
Login
common-lisp
default
anonymous
2023.06.02 04:28:38
(defmethod print-object ((obj resource) s) (print-unreadable-object (obj s :type t) (let ((split-c (str:split #\Newline (prin1-to-string (creator obj))))) (format s "~%Creator: ~%~{~5T~A~%~}" split-c))))
Raw
Annotate
Repaste
Edit