198 |
|
|
199 |
(deftest format.^.\:{.13 |
(deftest format.^.\:{.13 |
200 |
(format nil "~:{~v,v^~A~}" '((1 2 0) (#\a #\A 1) (#\A #\A 2) (1 2 3))) |
(format nil "~:{~v,v^~A~}" '((1 2 0) (#\a #\A 1) (#\A #\A 2) (1 2 3))) |
201 |
"03") |
"013") |
202 |
|
|
203 |
(deftest format.^.\:{.14 |
(deftest format.^.\:{.14 |
204 |
(format nil "~:{~'x,3^~A~}" '((1))) |
(format nil "~:{~'x,3^~A~}" '((1))) |
499 |
|
|
500 |
(deftest format.^.\:@{.13 |
(deftest format.^.\:@{.13 |
501 |
(format nil "~:@{~v,v^~A~}" '(1 2 0) '(#\a #\A 1) '(#\A #\A 2) '(1 2 3)) |
(format nil "~:@{~v,v^~A~}" '(1 2 0) '(#\a #\A 1) '(#\A #\A 2) '(1 2 3)) |
502 |
"03") |
"013") |
503 |
|
|
504 |
(deftest format.^.\:@{.14 |
(deftest format.^.\:@{.14 |
505 |
(format nil "~:@{~'x,3^~A~}" '(1)) |
(format nil "~:@{~'x,3^~A~}" '(1)) |
604 |
(deftest format.^.\:@{.39 |
(deftest format.^.\:@{.39 |
605 |
(format nil "~:@{~v,1,v^~A~}" '(#\a nil 0)) |
(format nil "~:@{~v,1,v^~A~}" '(#\a nil 0)) |
606 |
"0") |
"0") |
607 |
|
|
608 |
|
;;; ~:^ in ~:{ |
609 |
|
|
610 |
|
(deftest format.\:^.\:{.1 |
611 |
|
(format nil "~:{~:^~A~}" nil) |
612 |
|
"") |
613 |
|
|
614 |
|
(deftest format.\:^.\:{.2 |
615 |
|
(format nil "(~:{~A~:^,~})" '((1)(2)(3))) |
616 |
|
"(1,2,3)") |
617 |
|
|
618 |
|
(deftest format.\:^.\:{.3 |
619 |
|
(format nil "~:{~:^~A~}" '((1)(2)(3)(4))) |
620 |
|
"123") |
621 |
|
|
622 |
|
;;; arguments |
623 |
|
|
624 |
|
(deftest format.\:^.\:{.4 |
625 |
|
(format nil "~:{~0:^~A~}" '((1)(2))) |
626 |
|
"") |
627 |
|
|
628 |
|
(deftest format.\:^.\:{.5 |
629 |
|
(format nil "~:{~1:^~A~}" '((1)(2))) |
630 |
|
"12") |
631 |
|
|
632 |
|
(deftest format.\:^.\:{.6 |
633 |
|
(format nil "~:{~'X:^~A~}" '((1)(2))) |
634 |
|
"12") |
635 |
|
|
636 |
|
(deftest format.\:^.\:{.7 |
637 |
|
(format nil "~:{~v:^~A~}" '((1 8)(2 3 4)(3 1)(0)(6 7)(8 10))) |
638 |
|
"831") |
639 |
|
|
640 |
|
(deftest format.\:^.\:{.8 |
641 |
|
(format nil "~:{~V:^~A~}" '((#\X 1)(0 2))) |
642 |
|
"1") |
643 |
|
|
644 |
|
(deftest format.\:^.\:{.9 |
645 |
|
(format nil "~:{~#:^~A~}" '((1)(2)(3 4)(5 6 7)()(8 9 10))) |
646 |
|
"1235") |
647 |
|
|
648 |
|
(deftest format.\:^.\:{.10 |
649 |
|
(format nil "~:{~1,1:^~A~}" '(()(1)(2 3))) |
650 |
|
"") |
651 |
|
|
652 |
|
(deftest format.\:^.\:{.11 |
653 |
|
(format nil "~:{~0,1:^~A~}" '((1)(2 3))) |
654 |
|
"12") |
655 |
|
|
656 |
|
(deftest format.\:^.\:{.12 |
657 |
|
(format nil "~:{~v,1:^~A~}" '((2 3)(4 5 6)(0 2)(1 7)(9 10))) |
658 |
|
"352") |
659 |
|
|
660 |
|
(deftest format.\:^.\:{.13 |
661 |
|
(format nil "~:{~1,V:^~A~}" '((2 3)(4 5 6)(0 2)(1 7)(9 10))) |
662 |
|
"352") |
663 |
|
|
664 |
|
(deftest format.\:^.\:{.14 |
665 |
|
(format nil "~:{~V,v:^~A~}" '((0 1 2) (1 0 3) (4 4) () (5 6 7))) |
666 |
|
"23") |
667 |
|
|
668 |
|
(deftest format.\:^.\:{.15 |
669 |
|
(format nil "~:{~#,1:^~A~}" '((2 3 4)(4 5)(0)(1 7)(9 10))) |
670 |
|
"24") |
671 |
|
|
672 |
|
(deftest format.\:^.\:{.16 |
673 |
|
(format nil "~:{~1,#:^~A~}" '((2 3 4)(4 5)(0)(1 7)(9 10))) |
674 |
|
"24") |
675 |
|
|
676 |
|
(deftest format.\:^.\:{.17 |
677 |
|
(format nil "~:{~#,#:^~A~}" '(nil)) |
678 |
|
"") |
679 |
|
|
680 |
|
(deftest format.\:^.\:{.18 |
681 |
|
(format nil "~:{~#,#:^~A~}" '((1))) |
682 |
|
"") |
683 |
|
|
684 |
|
(deftest format.\:^.\:{.19 |
685 |
|
(format nil "~:{~#,v:^~A~}" '((1 2)(3 4)(2 5 6)(1)(2))) |
686 |
|
"245") |
687 |
|
|
688 |
|
(deftest format.\:^.\:{.20 |
689 |
|
(format nil "~:{~V,#:^~A~}" '((0 2)(1 3 4)(1 3)()(0 7))) |
690 |
|
"23") |
691 |
|
|
692 |
|
(deftest format.\:^.\:{.21 |
693 |
|
(format nil "~:{~'X,'Y:^~A~}" '((1)(2))) |
694 |
|
"12") |
695 |
|
|
696 |
|
(deftest format.\:^.\:{.22 |
697 |
|
(format nil "~:{~'X,'X:^~A~}" '((1)(2))) |
698 |
|
"") |