309 |
;;; # parameters |
;;; # parameters |
310 |
|
|
311 |
(def-format-test format.a.49 |
(def-format-test format.a.49 |
312 |
"~#A" ("abc" nil nil nil) "abc ") |
"~#A" ("abc" nil nil nil) "abc " 3) |
313 |
|
|
314 |
(def-format-test format.a.50 |
(def-format-test format.a.50 |
315 |
"~#@a" ("abc" nil nil nil nil nil) " abc") |
"~#@a" ("abc" nil nil nil nil nil) " abc" 5) |
316 |
|
|
317 |
(def-format-test format.a.51 |
(def-format-test format.a.51 |
318 |
"~5,#a" ("abc" nil nil nil) "abc ") |
"~5,#a" ("abc" nil nil nil) "abc " 3) |
319 |
|
|
320 |
(def-format-test format.a.52 |
(def-format-test format.a.52 |
321 |
"~5,#@A" ("abc" nil nil nil) " abc") |
"~5,#@A" ("abc" nil nil nil) " abc" 3) |
322 |
|
|
323 |
(def-format-test format.a.53 |
(def-format-test format.a.53 |
324 |
"~4,#A" ("abc" nil nil) "abc ") |
"~4,#A" ("abc" nil nil) "abc " 2) |
325 |
|
|
326 |
(def-format-test format.a.54 |
(def-format-test format.a.54 |
327 |
"~4,#@A" ("abc" nil nil) " abc") |
"~4,#@A" ("abc" nil nil) " abc" 2) |
328 |
|
|
329 |
(def-format-test format.a.55 |
(def-format-test format.a.55 |
330 |
"~#,#A" ("abc" nil nil nil) "abc ") |
"~#,#A" ("abc" nil nil nil) "abc " 3) |
331 |
|
|
332 |
(def-format-test format.a.56 |
(def-format-test format.a.56 |
333 |
"~#,#@A" ("abc" nil nil nil) " abc") |
"~#,#@A" ("abc" nil nil nil) " abc" 3) |
334 |
|
|
335 |
(def-format-test format.a.57 |
(def-format-test format.a.57 |
336 |
"~-100A" ("xyz") "xyz") |
"~-100A" ("xyz") "xyz") |