696 |
(deftest format.\:^.\:{.22 |
(deftest format.\:^.\:{.22 |
697 |
(format nil "~:{~'X,'X:^~A~}" '((1)(2))) |
(format nil "~:{~'X,'X:^~A~}" '((1)(2))) |
698 |
"") |
"") |
699 |
|
|
700 |
|
(deftest format.\:^.\:{.23 |
701 |
|
(format nil "~:{~1,2,3:^~A~}" '((1)(2))) |
702 |
|
"") |
703 |
|
|
704 |
|
(deftest format.\:^.\:{.24 |
705 |
|
(format nil "~:{~1,2,1:^~A~}" '((1)(2))) |
706 |
|
"12") |
707 |
|
|
708 |
|
(deftest format.\:^.\:{.25 |
709 |
|
(format nil "~:{~2,1,3:^~A~}" '((1)(2))) |
710 |
|
"12") |
711 |
|
|
712 |
|
(deftest format.\:^.\:{.26 |
713 |
|
(format nil "~:{~1,1,v:^~A~}" '((0 4)(nil 1)(0 5))) |
714 |
|
"4") |
715 |
|
|
716 |
|
(deftest format.\:^.\:{.27 |
717 |
|
(format nil "~:{~v,2,2:^~A~}" '((3 4)(1 1)(4 5))) |
718 |
|
"4") |
719 |
|
|
720 |
|
(deftest format.\:^.\:{.28 |
721 |
|
(format nil "~:{~1,v,2:^~A~}" '((0 2)(3 4)(1 1)(4 5))) |
722 |
|
"24") |
723 |
|
|
724 |
|
(deftest format.\:^.\:{.29 |
725 |
|
(format nil "~:{~V,v,3:^~A~}" '((1 4 0)(2 1 7)(4 4 8 0)(1 2 6)(9 8 0))) |
726 |
|
"078") |
727 |
|
|
728 |
|
(deftest format.\:^.\:{.30 |
729 |
|
(format nil "~:{~v,2,v:^~A~}" '((1 1 0)(3 2 5)(2 1 6)(1 2 0)(10 11 13))) |
730 |
|
"056") |
731 |
|
|
732 |
|
(deftest format.\:^.\:{.31 |
733 |
|
(format nil "~:{~2,V,v:^~A~}" '((1 1 0)(3 2 5)(2 1 6)(10 11 13)(0 1 0))) |
734 |
|
"056") |
735 |
|
|
736 |
|
(deftest format.\:^.\:{.32 |
737 |
|
(format nil "~:{~v,v,V:^~A~}" '((1 2 1 0)(2 1 1 4)(2 3 1 6)(1 2 3)(0 1 0 8))) |
738 |
|
"046") |
739 |
|
|
740 |
|
(deftest format.\:^.\:{.33 |
741 |
|
(format nil "~:{~#,2,2:^~A~}" '((1 2 3)(2 X X)(0 A B C D)(4 5)(5 7 8 9))) |
742 |
|
"120") |
743 |
|
|
744 |
|
(deftest format.\:^.\:{.34 |
745 |
|
(format nil "~:{~2,#,3:^~A~}" '((1)(2 3 4 5)(3 4)(4 5 6 7 8)())) |
746 |
|
"12") |
747 |
|
|
748 |
|
(deftest format.\:^.\:{.35 |
749 |
|
(format nil "~:{~1,3,#:^~A~}" '((1)(2 3)(3 4)(4 5 6)(5))) |
750 |
|
"123") |
751 |
|
|
752 |
|
(deftest format.\:^.\:{.36 |
753 |
|
(format nil "~:{~#,#,2:^~A~}" '((1 2 3)(2 X X)(0 A B C D)(4 5)(5 7 8 9))) |
754 |
|
"120") |
755 |
|
|
756 |
|
(deftest format.\:^.\:{.37 |
757 |
|
(format nil "~:{~3,#,#:^~A~}" '((1)(2 3)(3 4)(4 5 6)(5))) |
758 |
|
"123") |
759 |
|
|
760 |
|
(deftest format.\:^.\:{.38 |
761 |
|
(format nil "~:{~#,2,#:^~A~}" '((1 2 3)(2)(0 A B C D)(4 5)(5 7 8 9))) |
762 |
|
"120") |
763 |
|
|
764 |
|
(deftest format.\:^.\:{.39 |
765 |
|
(format nil "~:{~#,#,#:^~A~}" '((1 2 3)(2)(0 A B C D)(4 5)(5 7 8 9))) |
766 |
|
"") |
767 |
|
|
768 |
|
;;; ~:^ in ~:@{ |
769 |
|
|
770 |
|
(deftest format.\:^.\:@{.1 |
771 |
|
(format nil "~:@{~:^~A~}") |
772 |
|
"") |
773 |
|
|
774 |
|
(deftest format.\:^.\:@{.2 |
775 |
|
(format nil "(~:@{~A~:^,~})" '(1) '(2) '(3)) |
776 |
|
"(1,2,3)") |
777 |
|
|
778 |
|
(deftest format.\:^.\:@{.3 |
779 |
|
(format nil "~:@{~:^~A~}" '(1) '(2) '(3) '(4)) |
780 |
|
"123") |
781 |
|
|
782 |
|
(deftest format.\:^.\:@{.4 |
783 |
|
(format nil "~:@{~0:^~A~}" '(1) '(2)) |
784 |
|
"") |
785 |
|
|
786 |
|
(deftest format.\:^.\:@{.5 |
787 |
|
(format nil "~:@{~1:^~A~}" '(1) '(2)) |
788 |
|
"12") |
789 |
|
|
790 |
|
(deftest format.\:^.\:@{.6 |
791 |
|
(format nil "~:@{~'X:^~A~}" '(1) '(2)) |
792 |
|
"12") |
793 |
|
|
794 |
|
(deftest format.\:^.\:@{.7 |
795 |
|
(format nil "~:@{~v:^~A~}" '(1 8) '(2 3 4) '(3 1) '(0) '(6 7) '(8 10)) |
796 |
|
"831") |
797 |
|
|
798 |
|
(deftest format.\:^.\:@{.8 |
799 |
|
(format nil "~:@{~V:^~A~}" '(#\X 1) '(0 2)) |
800 |
|
"1") |
801 |
|
|
802 |
|
(deftest format.\:^.\:@{.9 |
803 |
|
(format nil "~:@{~#:^~A~}" '(1) '(2) '(3 4) '(5 6 7) () '(8 9 10)) |
804 |
|
"1235") |
805 |
|
|
806 |
|
(deftest format.\:^.\:@{.10 |
807 |
|
(format nil "~:@{~1,1:^~A~}" () '(1) '(2 3)) |
808 |
|
"") |
809 |
|
|
810 |
|
(deftest format.\:^.\:@{.11 |
811 |
|
(format nil "~:@{~0,1:^~A~}" '(1) '(2 3)) |
812 |
|
"12") |
813 |
|
|
814 |
|
(deftest format.\:^.\:@{.12 |
815 |
|
(format nil "~:@{~v,1:^~A~}" '(2 3) '(4 5 6) '(0 2) '(1 7) '(9 10)) |
816 |
|
"352") |
817 |
|
|
818 |
|
(deftest format.\:^.\:@{.13 |
819 |
|
(format nil "~:@{~1,V:^~A~}" '(2 3) '(4 5 6) '(0 2) '(1 7) '(9 10)) |
820 |
|
"352") |
821 |
|
|
822 |
|
(deftest format.\:^.\:@{.14 |
823 |
|
(format nil "~:@{~V,v:^~A~}" '(0 1 2) '(1 0 3) '(4 4) () '(5 6 7)) |
824 |
|
"23") |
825 |
|
|
826 |
|
(deftest format.\:^.\:@{.15 |
827 |
|
(format nil "~:@{~#,1:^~A~}" '(2 3 4) '(4 5) '(0) '(1 7) '(9 10)) |
828 |
|
"24") |
829 |
|
|
830 |
|
(deftest format.\:^.\:@{.16 |
831 |
|
(format nil "~:@{~1,#:^~A~}" '(2 3 4) '(4 5) '(0) '(1 7) '(9 10)) |
832 |
|
"24") |
833 |
|
|
834 |
|
(deftest format.\:^.\:@{.17 |
835 |
|
(format nil "~:@{~#,#:^~A~}" nil) |
836 |
|
"") |
837 |
|
|
838 |
|
(deftest format.\:^.\:@{.18 |
839 |
|
(format nil "~:@{~#,#:^~A~}" '(1)) |
840 |
|
"") |
841 |
|
|
842 |
|
(deftest format.\:^.\:@{.19 |
843 |
|
(format nil "~:@{~#,v:^~A~}" '(1 2) '(3 4) '(2 5 6) '(1) '(2)) |
844 |
|
"245") |
845 |
|
|
846 |
|
(deftest format.\:^.\:@{.20 |
847 |
|
(format nil "~:@{~V,#:^~A~}" '(0 2) '(1 3 4) '(1 3) () '(0 7)) |
848 |
|
"23") |
849 |
|
|
850 |
|
(deftest format.\:^.\:@{.21 |
851 |
|
(format nil "~:@{~'X,'Y:^~A~}" '(1) '(2)) |
852 |
|
"12") |
853 |
|
|
854 |
|
(deftest format.\:^.\:@{.22 |
855 |
|
(format nil "~:@{~'X,'X:^~A~}" '(1) '(2)) |
856 |
|
"") |
857 |
|
|
858 |
|
(deftest format.\:^.\:@{.23 |
859 |
|
(format nil "~:@{~1,2,3:^~A~}" '(1) '(2)) |
860 |
|
"") |
861 |
|
|
862 |
|
(deftest format.\:^.\:@{.24 |
863 |
|
(format nil "~:@{~1,2,1:^~A~}" '(1) '(2)) |
864 |
|
"12") |
865 |
|
|
866 |
|
(deftest format.\:^.\:@{.25 |
867 |
|
(format nil "~:@{~2,1,3:^~A~}" '(1) '(2)) |
868 |
|
"12") |
869 |
|
|
870 |
|
(deftest format.\:^.\:@{.26 |
871 |
|
(format nil "~:@{~1,1,v:^~A~}" '(0 4) '(nil 1) '(0 5)) |
872 |
|
"4") |
873 |
|
|
874 |
|
(deftest format.\:^.\:@{.27 |
875 |
|
(format nil "~:@{~v,2,2:^~A~}" '(3 4) '(1 1) '(4 5)) |
876 |
|
"4") |
877 |
|
|
878 |
|
(deftest format.\:^.\:@{.28 |
879 |
|
(format nil "~:@{~1,v,2:^~A~}" '(0 2) '(3 4) '(1 1) '(4 5)) |
880 |
|
"24") |
881 |
|
|
882 |
|
(deftest format.\:^.\:@{.29 |
883 |
|
(format nil "~:@{~V,v,3:^~A~}" '(1 4 0) '(2 1 7) '(4 4 8 0) '(1 2 6) '(9 8 0)) |
884 |
|
"078") |
885 |
|
|
886 |
|
(deftest format.\:^.\:@{.30 |
887 |
|
(format nil "~:@{~v,2,v:^~A~}" '(1 1 0) '(3 2 5) '(2 1 6) '(1 2 0) '(10 11 13)) |
888 |
|
"056") |
889 |
|
|
890 |
|
(deftest format.\:^.\:@{.31 |
891 |
|
(format nil "~:@{~2,V,v:^~A~}" '(1 1 0) '(3 2 5) '(2 1 6) '(10 11 13) '(0 1 0)) |
892 |
|
"056") |
893 |
|
|
894 |
|
(deftest format.\:^.\:@{.32 |
895 |
|
(format nil "~:@{~v,v,V:^~A~}" '(1 2 1 0) '(2 1 1 4) '(2 3 1 6) '(1 2 3) '(0 1 0 8)) |
896 |
|
"046") |
897 |
|
|
898 |
|
(deftest format.\:^.\:@{.33 |
899 |
|
(format nil "~:@{~#,2,2:^~A~}" '(1 2 3) '(2 X X) '(0 A B C D) '(4 5) '(5 7 8 9)) |
900 |
|
"120") |
901 |
|
|
902 |
|
(deftest format.\:^.\:@{.34 |
903 |
|
(format nil "~:@{~2,#,3:^~A~}" '(1) '(2 3 4 5) '(3 4) '(4 5 6 7 8) ()) |
904 |
|
"12") |
905 |
|
|
906 |
|
(deftest format.\:^.\:@{.35 |
907 |
|
(format nil "~:@{~1,3,#:^~A~}" '(1) '(2 3) '(3 4) '(4 5 6) '(5)) |
908 |
|
"123") |
909 |
|
|
910 |
|
(deftest format.\:^.\:@{.36 |
911 |
|
(format nil "~:@{~#,#,2:^~A~}" '(1 2 3) '(2 X X) '(0 A B C D) '(4 5) '(5 7 8 9)) |
912 |
|
"120") |
913 |
|
|
914 |
|
(deftest format.\:^.\:@{.37 |
915 |
|
(format nil "~:@{~3,#,#:^~A~}" '(1) '(2 3) '(3 4) '(4 5 6) '(5)) |
916 |
|
"123") |
917 |
|
|
918 |
|
(deftest format.\:^.\:@{.38 |
919 |
|
(format nil "~:@{~#,2,#:^~A~}" '(1 2 3) '(2) '(0 A B C D) '(4 5) '(5 7 8 9)) |
920 |
|
"120") |
921 |
|
|
922 |
|
(deftest format.\:^.\:@{.39 |
923 |
|
(format nil "~:@{~#,#,#:^~A~}" '(1 2 3) '(2) '(0 A B C D) '(4 5) '(5 7 8 9)) |
924 |
|
"") |