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))))