The name READ is used where READ-PRESERVING-WHITESPACE should be

[Thuna-Cing]

In the description of READ-PRESERVING-WHITESPACE, the second instance of READ (highlighted and crossed out below) in the third paragraph (denoted by the comment 22.2.1 13) should instead be READ-PRESERVING-WHITESPACE:

When *read-suppress* is false, read throws away the delimiting character required by certain printed representations if it is a whitespace[2] character; but ~read~ preserves the character (using unread-char) if it is syntactically meaningful, because it could be the start of the next expression.