/[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.12 by pfdietz, Sat Nov 27 00:33:04 2004 UTC revision 1.13 by pfdietz, Sat Nov 27 14:14:51 2004 UTC
# Line 937  Line 937 
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                      

Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13

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