mirror of
https://github.com/google/styleguide.git
synced 2024-03-22 13:11:43 +08:00
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:
parent
8638b2665f
commit
fbce7fd10f
|
@ -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>
|
||||||
|
|
Loading…
Reference in New Issue
Block a user