The error class caused by the format function is incorrect.

[sasagawa888]

In verify/io.lsp test case of format display many incorrect error class.

(LET ((S (CREATE-STRING-OUTPUT-STREAM))) (FORMAT S "~A") (GET-OUTPUT-STREAM-STRING S)) is bad. correct is but got
(LET ((S (CREATE-STRING-OUTPUT-STREAM))) (FORMAT S "~B") (GET-OUTPUT-STREAM-STRING S)) is bad. correct is but got
(LET ((S (CREATE-STRING-OUTPUT-STREAM))) (FORMAT S "~C") (GET-OUTPUT-STREAM-STRING S)) is bad. correct is but got
(LET ((S (CREATE-STRING-OUTPUT-STREAM))) (FORMAT S "~D") (GET-OUTPUT-STREAM-STRING S)) is bad. correct is but got
(LET ((S (CREATE-STRING-OUTPUT-STREAM))) (FORMAT S "~G") (GET-OUTPUT-STREAM-STRING S)) is bad. correct is but got
(LET ((S (CREATE-STRING-OUTPUT-STREAM))) (FORMAT S "~O") (GET-OUTPUT-STREAM-STRING S)) is bad. correct is but got
(LET ((S (CREATE-STRING-OUTPUT-STREAM))) (FORMAT S "~10R") (GET-OUTPUT-STREAM-STRING S)) is bad. correct is but got
(LET ((S (CREATE-STRING-OUTPUT-STREAM))) (FORMAT S "~1R" 1) (GET-OUTPUT-STREAM-STRING S)) is bad. correct is but got
(LET ((S (CREATE-STRING-OUTPUT-STREAM))) (FORMAT S "~37R" 1) (GET-OUTPUT-STREAM-STRING S)) is bad. correct is but got
(LET ((S (CREATE-STRING-OUTPUT-STREAM))) (FORMAT S "~S") (GET-OUTPUT-STREAM-STRING S)) is bad. correct is but got
(LET ((S (CREATE-STRING-OUTPUT-STREAM))) (FORMAT S "~X") (GET-OUTPUT-STREAM-STRING S)) is bad. correct is but got
2 format-char (P.110)
2 format-float (P.110)
(LET ((S (CREATE-STRING-OUTPUT-STREAM))) (FORMAT-FLOAT S 1) (GET-OUTPUT-STREAM-STRING S)) is bad. correct is 1.0 but got 1
2 format-float (P.110)
(LET ((S (CREATE-STRING-OUTPUT-STREAM))) (FORMAT-FRESH-LINE S) (FORMAT-OBJECT S 123 NIL) (GET-OUTPUT-STREAM-STRING S)) is bad. correct is 123 but got
123
(LET ((S (CREATE-STRING-OUTPUT-STREAM))) (FORMAT-FRESH-LINE S) (FORMAT-OBJECT S 123 NIL) (FORMAT-FRESH-LINE S) (FORMAT-OBJECT S 456 NIL) (GET-OUTPUT-STREAM-STRING S)) is bad. correct is 123
456 but got
123
456
2 format-integer (P.110)
(LET ((S (CREATE-STRING-OUTPUT-STREAM))) (FORMAT-INTEGER S 35 1) (GET-OUTPUT-STREAM-STRING S)) is bad. correct is but got
(LET ((S (CREATE-STRING-OUTPUT-STREAM))) (FORMAT-INTEGER S 35 37) (GET-OUTPUT-STREAM-STRING S)) is bad. correct is but got
2 format-object (P.110)
2 format-tab (P.110)
(LET ((S (CREATE-STRING-OUTPUT-STREAM))) (FORMAT-TAB S 10) (FORMAT-OBJECT S 10 NIL) (FORMAT-FRESH-LINE S) (FORMAT-TAB S 10) (FORMAT-OBJECT S 20 NIL) (GET-OUTPUT-STREAM-STRING S)) is bad. correct is 10
20 but got 10
20
(LET ((S (CREATE-STRING-OUTPUT-STREAM))) (FORMAT-OBJECT S 10000 NIL) (FORMAT-TAB S 3) (GET-OUTPUT-STREAM-STRING S)) is bad. correct is 10000 but got 10000
(FORMAT-TAB (CREATE-STRING-OUTPUT-STREAM) -1) is bad. correct is but got
(FORMAT-TAB (CREATE-STRING-OUTPUT-STREAM) 4294967296) is bad. correct is but got
2 read-byte (P.110)
2 write-byte (P.111)

[sasagawa888]

Fixed.