va] Test FORMAT.F.45 failed
     [java] Form: (WITH-STANDARD-IO-SYNTAX (LET ((*PRINT-READABLY* NIL) (*PACKAGE* (SYMBOL-PACKAGE (QUOTE ABC)))) (FORMAT NIL "~2f" 1.1)))
     [java] Expected value:
     [java]           "1.0"
     [java] Actual value:
     [java]           "1."
     [java] Test FORMATTER.F.45 failed
     [java] Form: (LET ((FN (FORMATTER "~2f")) (ARGS (LIST 1.1))) (WITH-STANDARD-IO-SYNTAX (LET ((*PRINT-READABLY* NIL) (*PACKAGE* (SYMBOL-PACKAGE (QUOTE ABC)))) (WITH-OUTPUT-TO-STRING (STREAM) (LET ((TAIL (APPLY FN STREAM ARGS))) (ASSERT (= (LENGTH TAIL) 0) (TAIL) "Tail is ~A, length should be ~A" TAIL 0))))))
     [java] Expected value:
     [java]           "1.0"
     [java] Actual value:
     [java]           "1."
     [java]  FORMAT.F.45B FORMATTER.F.45B
     [java] Test FORMAT.F.46 failed
     [java] Form: (WITH-STANDARD-IO-SYNTAX (LET ((*PRINT-READABLY* NIL) (*PACKAGE* (SYMBOL-PACKAGE (QUOTE ABC)))) (FORMAT NIL "~0f" 0.01)))
     [java] Expected value:
     [java]           ".0"
     [java] Actual value:
     [java]           "0."
     [java] Test FORMATTER.F.46 failed
     [java] Form: (LET ((FN (FORMATTER "~0f")) (ARGS (LIST 0.01))) (WITH-STANDARD-IO-SYNTAX (LET ((*PRINT-READABLY* NIL) (*PACKAGE* (SYMBOL-PACKAGE (QUOTE ABC)))) (WITH-OUTPUT-TO-STRING (STREAM) (LET ((TAIL (APPLY FN STREAM ARGS))) (ASSERT (= (LENGTH TAIL) 0) (TAIL) "Tail is ~A, length should be ~A" TAIL 0))))))
     [java] Expected value:
     [java]           ".0"
     [java] Actual value:
     [java]           "0."
     [java] Test FORMAT.F.46B failed
     [java] Form: (WITH-STANDARD-IO-SYNTAX (LET ((*PRINT-READABLY* NIL) (*PACKAGE* (SYMBOL-PACKAGE (QUOTE ABC)))) (FORMAT NIL "~0,0f" 0.01)))
     [java] Expected value:
     [java]           "0."
     [java] Actual value:
     [java]           "."
     [java] Test FORMATTER.F.46B failed
     [java] Form: (LET ((FN (FORMATTER "~0,0f")) (ARGS (LIST 0.01))) (WITH-STANDARD-IO-SYNTAX (LET ((*PRINT-READABLY* NIL) (*PACKAGE* (SYMBOL-PACKAGE (QUOTE ABC)))) (WITH-OUTPUT-TO-STRING (STREAM) (LET ((TAIL (APPLY FN STREAM ARGS))) (ASSERT (= (LENGTH TAIL) 0) (TAIL) "Tail is ~A, length should be ~A" TAIL 0))))))
     [java] Expected value:
     [java]           "0."
     [java] Actual value:
     [java]           "."
     [java] Test FORMAT.F.47 failed
     [java] Form: (WITH-STANDARD-IO-SYNTAX (LET ((*PRINT-READABLY* NIL) (*PACKAGE* (SYMBOL-PACKAGE (QUOTE ABC)))) (FORMAT NIL "~3f" 1.0E-6)))
     [java] Expected value:
     [java]           "0.0"
     [java] Actual value:
     [java]           ".00"
     [java] Test FORMATTER.F.47 failed
     [java] Form: (LET ((FN (FORMATTER "~3f")) (ARGS (LIST 1.0E-6))) (WITH-STANDARD-IO-SYNTAX (LET ((*PRINT-READABLY* NIL) (*PACKAGE* (SYMBOL-PACKAGE (QUOTE ABC)))) (WITH-OUTPUT-TO-STRING (STREAM) (LET ((TAIL (APPLY FN STREAM ARGS))) (ASSERT (= (LENGTH TAIL) 0) (TAIL) "Tail is ~A, length should be ~A" TAIL 0))))))
     [java] Expected value:
     [java]           "0.0"
     [java] Actual value:
     [java]           ".00"
     [java]  FORMAT.F.48 FORMATTER.F.48 FORMAT.A.1 FORMATTER.A.1 FORMAT.A.2