937 |
(format nil "~AY~?X~A" 1 "~A~^~A~^~A" '(2 4) 3) |
(format nil "~AY~?X~A" 1 "~A~^~A~^~A" '(2 4) 3) |
938 |
"1Y24X3") |
"1Y24X3") |
939 |
|
|
940 |
|
(deftest format.^.?.4 |
941 |
|
(format nil "~A~?X~A" 1 "~{~^~A~}~AY~A" '((2 3) 4 5) 6) |
942 |
|
"1234Y5X6") |
943 |
|
|
944 |
(deftest format.^.@?.1 |
(deftest format.^.@?.1 |
945 |
(format nil "~AY~@?X~A" 1 "~A~0^~A" 2 3 4) |
(format nil "~AY~@?X~A" 1 "~A~0^~A" 2 3 4) |
946 |
"1Y2X3") |
"1Y2X3") |
947 |
|
|
948 |
|
(deftest format.^.@?.2 |
949 |
|
(format nil "~A~@?X~A" 1 "~{~^~A~}~AY~A" '(2 3) 4 5 6) |
950 |
|
"1234Y5X6") |
951 |
|
|
952 |
|
;;; ~^ in ~[ |
953 |
|
|
954 |
|
(deftest format.^.\[.1 |
955 |
|
(format nil "~{~[X~;Y~;Z~;~0^~]~}" '(0 1 2 3 4)) |
956 |
|
"XYZ") |
957 |
|
|
958 |
|
(deftest format.^.\[.2 |
959 |
|
(format nil "~{~[X~;Y~;Z~:;~0^~]~}" '(1 0 2 8 9 10 0)) |
960 |
|
"YXZ") |
961 |
|
|
962 |
|
(deftest format.^.\[.3 |
963 |
|
(format nil "~{~[X~;Y~0^NO~;Z~;~^~]~}" '(0 1 2 3 4)) |
964 |
|
"XY") |
965 |
|
|
966 |
|
;;; ~^ in ~( |
967 |
|
|
968 |
|
(deftest format.^.\(.1 |
969 |
|
(format nil "~{~(~C~C~0^~C~)W~}" '(#\X #\Y #\Z #\A)) |
970 |
|
"xy") |
971 |
|
|
972 |
|
(deftest format.^.\:\(.1 |
973 |
|
(format nil "~{~:(~C~C~0^~C~)U~}" '(#\X #\Y #\Z #\A)) |
974 |
|
"Xy") |
975 |
|
|
976 |
|
(deftest format.^.@\(.1 |
977 |
|
(format nil "~{~@(~CA ~Cb ~0^~C~)V~}" '(#\x #\y #\Z #\A)) |
978 |
|
"Xa yb ") |
979 |
|
|
980 |
|
(deftest format.^.@\:\(.1 |
981 |
|
(format nil "~{~@:(~CA ~Cb ~0^~C~)W~}" '(#\x #\Y #\Z #\A)) |
982 |
|
"XA YB ") |
983 |
|
|
984 |
|
|
985 |
|
|
986 |
|
|
987 |
|
|
988 |
|
|
989 |
|
|
990 |
|
|
991 |
|
|