projects
/
jscl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
DEBUG: Basic compiler undefined function warning
[jscl.git]
/
tests
/
format.lisp
diff --git
a/tests/format.lisp
b/tests/format.lisp
index
3491010
..
a3eae9d
100644
(file)
--- a/
tests/format.lisp
+++ b/
tests/format.lisp
@@
-8,5
+8,9
@@
a" (format nil "a~%a")))
(test (string= "this is foo" (format nil "this is ~a" "foo")))
a" (format nil "a~%a")))
(test (string= "this is foo" (format nil "this is ~a" "foo")))
+(test (string= "this is foo" (format nil "this is ~A" "foo")))
+(test (string= "this is \"foo\"" (format nil "this is ~s" "foo")))
(test (string= "this is \"foo\"" (format nil "this is ~S" "foo")))
(test (string= "this is \"foo\"" (format nil "this is ~S" "foo")))
+
+(test (string= "this is 2" (format nil "this is ~*~A" 1 2)))