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

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

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

revision 1.2 by pfdietz, Tue Aug 24 13:13:15 2004 UTC revision 1.3 by pfdietz, Sat Nov 27 19:36:18 2004 UTC
# Line 9  Line 9 
9    
10  ;;; ~*  ;;; ~*
11    
12  (deftest format.*.1  (def-format-test format.*.1
13    (format nil "~A~*~A" 1 2 3)    "~A~*~A" (1 2 3) "13")
   "13")  
   
 (deftest format.*.2  
   (format nil "~A~0*~A" 1 2 3)  
   "12")  
   
 (deftest format.*.3  
   (format nil "~A~v*~A" 1 0 2)  
   "12")  
   
 (deftest format.*.4  
   (format nil "~A~v*~A" 1 1 2 3)  
   "13")  
   
 (deftest format.*.5  
   (format nil "~A~v*~A" 1 nil 2 3)  
   "13")  
   
 (deftest format.*.6  
   (format nil "~A~1{~A~*~A~}~A" 0 '(1 2 3) 4)  
   "0134")  
   
 (deftest format.*.7  
   (format nil "~A~1{~A~0*~A~}~A" 0 '(1 2 3) 4)  
   "0124")  
   
 (deftest format.*.8  
   (format nil "~A~{~A~*~A~}~A" 0 '(1 2 3 4 5 6) 7)  
   "013467")  
14    
15  (deftest format.*.9  (def-format-test format.*.2
16    (format nil "~A~{~A~A~A~A~v*~^~A~A~A~A~}~A" 0 '(1 2 3 4 nil 6 7 8 9 #\A) 5)    "~A~0*~A" (1 2 3) "12")
17    
18    (def-format-test format.*.3
19      "~A~v*~A" (1 0 2) "12")
20    
21    (def-format-test format.*.4
22      "~A~v*~A" (1 1 2 3) "13")
23    
24    (def-format-test format.*.5
25      "~A~v*~A" (1 nil 2 3) "13")
26    
27    (def-format-test format.*.6
28      "~A~1{~A~*~A~}~A" (0 '(1 2 3) 4) "0134")
29    
30    (def-format-test format.*.7
31      "~A~1{~A~0*~A~}~A" (0 '(1 2 3) 4) "0124")
32    
33    (def-format-test format.*.8
34      "~A~{~A~*~A~}~A" (0 '(1 2 3 4 5 6) 7) "013467")
35    
36    (def-format-test format.*.9
37      "~A~{~A~A~A~A~v*~^~A~A~A~A~}~A" (0 '(1 2 3 4 nil 6 7 8 9 #\A) 5)
38    "01234789A5")    "01234789A5")
39    
40  ;;; ~:*  ;;; ~:*
41    
42  (deftest format.\:*.1  (def-format-test format.\:*.1
43    (format nil "~A~:*~A" 1 2 3)    "~A~:*~A" (1 2 3) "11")
44    "11")  
45    (def-format-test format.\:*.2
46  (deftest format.\:*.2    "~A~A~:*~A" (1 2 3) "122")
47    (format nil "~A~A~:*~A" 1 2 3)  
48    "122")  (def-format-test format.\:*.3
49      "~A~A~0:*~A" (1 2 3) "123")
50  (deftest format.\:*.3  
51    (format nil "~A~A~0:*~A" 1 2 3)  (def-format-test format.\:*.4
52    "123")    "~A~A~2:*~A" (1 2 3) "121")
53    
54  (deftest format.\:*.4  (def-format-test format.\:*.5
55    (format nil "~A~A~2:*~A" 1 2 3)    "~A~A~v:*~A" (1 2 0 3) "123")
56    "121")  
57    (def-format-test format.\:*.6
58  (deftest format.\:*.5    "~A~A~v:*~A" (6 7 2 3) "677")
59    (format nil "~A~A~v:*~A" 1 2 0 3)  
60    "123")  (def-format-test format.\:*.7
61      "~A~A~v:*~A" (6 7 nil 3) "67NIL")
62  (deftest format.\:*.6  
63    (format nil "~A~A~v:*~A" 6 7 2 3)  (def-format-test format.\:*.8
64    "677")    "~A~1{~A~:*~A~}~A" (0 '(1 2 3) 4) "0114")
65    
66  (def-pprint-test format.\:*.7  (def-format-test format.\:*.9
67    (format nil "~A~A~v:*~A" 6 7 nil 3)    "~A~1{~A~A~A~:*~A~}~A" (0 '(1 2 3 4) 5) "012335")
68    "67NIL")  
69    (def-format-test format.\:*.10
70  (deftest format.\:*.8    "~A~1{~A~A~A~2:*~A~A~}~A" (0 '(1 2 3 4) 5) "0123235")
71    (format nil "~A~1{~A~:*~A~}~A" 0 '(1 2 3) 4)  
72    "0114")  (def-format-test format.\:*.11
73      "~A~{~A~A~A~3:*~A~A~A~A~}~A" (0 '(1 2 3 4) 5) "012312345")
74  (deftest format.\:*.9  
75    (format nil "~A~1{~A~A~A~:*~A~}~A" 0 '(1 2 3 4) 5)  (def-format-test format.\:*.12
76    "012335")    "~A~{~A~A~A~A~4:*~^~A~A~A~A~}~A" (0 '(1 2 3 4) 5) "0123412345")
77    
78  (deftest format.\:*.10  (def-format-test format.\:*.13
79    (format nil "~A~1{~A~A~A~2:*~A~A~}~A" 0 '(1 2 3 4) 5)    "~A~{~A~A~A~A~v:*~^~A~}~A" (0 '(1 2 3 4 nil) 5) "01234NIL5")
   "0123235")  
   
 (deftest format.\:*.11  
   (format nil "~A~{~A~A~A~3:*~A~A~A~A~}~A" 0 '(1 2 3 4) 5)  
   "012312345")  
   
 (deftest format.\:*.12  
   (format nil "~A~{~A~A~A~A~4:*~^~A~A~A~A~}~A" 0 '(1 2 3 4) 5)  
   "0123412345")  
   
 (def-pprint-test format.\:*.13  
   (format nil "~A~{~A~A~A~A~v:*~^~A~}~A" 0 '(1 2 3 4 nil) 5)  
   "01234NIL5")  
80    
81  ;;; ~@*  ;;; ~@*
82    
83  (deftest format.@*.1  (def-format-test format.@*.1
84    (format nil "~A~A~@*~A~A" 1 2 3 4)    "~A~A~@*~A~A" (1 2 3 4) "1212")
85    "1212")  
86    (def-format-test format.@*.2
87  (deftest format.@*.2    "~A~A~1@*~A~A" (1 2 3 4) "1223")
88    (format nil "~A~A~1@*~A~A" 1 2 3 4)  
89    "1223")  (def-format-test format.@*.3
90      "~A~A~2@*~A~A" (1 2 3 4) "1234")
91  (deftest format.@*.3  
92    (format nil "~A~A~2@*~A~A" 1 2 3 4)  (def-format-test format.@*.4
93    "1234")    "~A~A~3@*~A~A" (1 2 3 4 5) "1245")
94    
95  (deftest format.@*.4  (def-format-test format.@*.5
96    (format nil "~A~A~3@*~A~A" 1 2 3 4 5)    "~A~A~v@*~A~A" (1 2 nil 3 4) "1212")
97    "1245")  
98    (def-format-test format.@*.6
99  (deftest format.@*.5    "~A~A~v@*~A~A" (1 2 1 3 4) "1221")
100    (format nil "~A~A~v@*~A~A" 1 2 nil 3 4)  
101    "1212")  (def-format-test format.@*.7
102      "~A~A~v@*~A~A" (6 7 2 3 4) "6723")
103  (deftest format.@*.6  
104    (format nil "~A~A~v@*~A~A" 1 2 1 3 4)  (def-format-test format.@*.8
105    "1221")    "~A~{~A~A~@*~A~A~}~A" (0 '(1 2) 9) "012129")
106    
107  (deftest format.@*.7  (def-format-test format.@*.9
108    (format nil "~A~A~v@*~A~A" 6 7 2 3 4)    "~A~{~A~A~0@*~A~A~}~A" (0 '(1 2) 9) "012129")
109    "6723")  
110    (def-format-test format.@*.10
111  (deftest format.@*.8    "~A~1{~A~A~v@*~A~A~}~A" (0 '(1 2 nil) 9) "012129")
   (format nil "~A~{~A~A~@*~A~A~}~A" 0 '(1 2) 9)  
   "012129")  
   
 (deftest format.@*.9  
   (format nil "~A~{~A~A~0@*~A~A~}~A" 0 '(1 2) 9)  
   "012129")  
   
 (deftest format.@*.10  
   (format nil "~A~1{~A~A~v@*~A~A~}~A" 0 '(1 2 nil) 9)  
   "012129")  
   
 (deftest format.@*.11  
   (format nil "~A~{~A~A~1@*~A~}~A" 0 '(1 2) 9)  
   "01229")  
112    
113    (def-format-test format.@*.11
114      "~A~{~A~A~1@*~A~}~A" (0 '(1 2) 9) "01229")

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

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