Parent Directory | Revision Log | Patch
revision 1.2 by pfdietz, Mon Nov 8 13:12:47 2004 UTC | revision 1.3 by pfdietz, Mon Nov 8 13:17:48 2004 UTC | |
---|---|---|
# | Line 16 | Line 16 |
16 | (format nil "~{~}" nil) | (format nil "~{~}" nil) |
17 | "") | "") |
18 | ||
19 | (deftest format.{.1b | |
20 | (format nil "~0{~}" '(1 2 3)) | |
21 | "") | |
22 | ||
23 | (deftest format.{.2 | (deftest format.{.2 |
24 | (format nil "~{ ~}" nil) | (format nil "~{ ~}" nil) |
25 | "") | "") |
# | Line 68 | Line 72 |
72 | (format nil "~{X ~A~^ Y ~A~^ ~}" '(1 2 3 4)) | (format nil "~{X ~A~^ Y ~A~^ ~}" '(1 2 3 4)) |
73 | "X 1 Y 2 X 3 Y 4") | "X 1 Y 2 X 3 Y 4") |
74 | ||
75 | (deftest format.{.12 | |
76 | (format nil "~{~^~}" '(1 2 3 4 5)) | |
77 | "") | |
78 | ||
79 | ;;; Tests of ~@{ ... ~} | ;;; Tests of ~@{ ... ~} |
80 | ||
81 | (deftest format.@{.1 | (deftest format.@{.1 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |