/[gcl]/gcl/ansi-tests/format-circumflex.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/format-circumflex.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.10 by pfdietz, Tue Nov 16 13:04:46 2004 UTC revision 1.11 by pfdietz, Wed Nov 17 03:33:23 2004 UTC
# Line 696  Line 696 
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      "")

Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26