(test (string= "this is \"foo\"" (format nil "this is ~S" "foo")))
(test (string= "this is 2" (format nil "this is ~*~A" 1 2)))
(test (string= "this is \"foo\"" (format nil "this is ~S" "foo")))
(test (string= "this is 2" (format nil "this is ~*~A" 1 2)))