/[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.2 by pfdietz, Fri Nov 12 13:56:35 2004 UTC revision 1.3 by pfdietz, Fri Nov 12 13:59:56 2004 UTC
# Line 115  Line 115 
115    "123")    "123")
116    
117  (deftest format.^.{.26  (deftest format.^.{.26
118    (format nil "~{~'XA~}" '(1 2 3))    (format nil "~{~'X^~A~}" '(1 2 3))
119    "123")    "123")
120    
121  (deftest format.^.{.27  (deftest format.^.{.27
122    (format nil "~{~v,'XA~}" '(0 1 #\x 2 nil 3 #\X 4 0 5))    (format nil "~{~v,'X^~A~}" '(0 1 #\x 2 nil 3 #\X 4 0 5))
123    "123")    "123")
124    
125    (deftest format.^.{.28
126      (format nil "~{~'X,v^~A~}" '(0 1 #\x 2 nil 3 #\X 4 0 5))
127      "123")
128    
129    (deftest format.^.{.29
130      (format nil "~{~v,v^~A~}" '(0 2 1 #\x #\X 2 5 #\X 3 #\y #\y 4 1 2 5))
131      "123")
132    
133    (deftest format.^.{.30
134      (format nil "~{~',,',^~A~}" '(1 2 3))
135      "")

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