From fbce7fd10fbe9747b4139ca0a84a34d7154e2e17 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Micha=C5=82=20=22phoe=22=20Herda?=
Date: Thu, 27 Oct 2022 09:16:17 +0200
Subject: [PATCH] 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.
---
lispguide.xml | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/lispguide.xml b/lispguide.xml
index 456a23e..d4f3841 100644
--- a/lispguide.xml
+++ b/lispguide.xml
@@ -2087,7 +2087,7 @@ Robert Brown
(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
(safe-format stream "~a ~a" first-name last-name))))