Fix PRINT-UNPRINTABLE-OBJECT

There is no Common Lisp operator named PRINT-UNPRINTABLE-OBJECT. Given the context, it is certain that PRINT-UNREADABLE-OBJECT (www.lispworks.com/documentation/lw51/CLHS/Body/m_pr_unr.htm) was meant instead.
This commit is contained in:
Michał "phoe" Herda 2022-10-27 09:16:17 +02:00 committed by GitHub
parent 8638b2665f
commit fbce7fd10f
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23

View File

@ -2087,7 +2087,7 @@ Robert Brown
</p> </p>
<CODE_SNIPPET> <CODE_SNIPPET>
(defmethod print-object ((p person) stream) (defmethod print-object ((p person) stream)
(print-unprintable-object (p stream :type t :identity t) (print-unreadable-object (p stream :type t :identity t)
(with-slots (first-name last-name) p (with-slots (first-name last-name) p
(safe-format stream "~a ~a" first-name last-name)))) (safe-format stream "~a ~a" first-name last-name))))
</CODE_SNIPPET> </CODE_SNIPPET>