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

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

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

revision 1.2 by pfdietz, Sat Nov 27 19:36:18 2004 UTC revision 1.3 by pfdietz, Sat Nov 27 21:55:26 2004 UTC
# Line 309  Line 309 
309  ;;; # parameters  ;;; # parameters
310    
311  (def-format-test format.a.49  (def-format-test format.a.49
312    "~#A" ("abc" nil nil nil) "abc ")    "~#A" ("abc" nil nil nil) "abc " 3)
313    
314  (def-format-test format.a.50  (def-format-test format.a.50
315    "~#@a" ("abc" nil nil nil nil nil) "   abc")    "~#@a" ("abc" nil nil nil nil nil) "   abc" 5)
316    
317  (def-format-test format.a.51  (def-format-test format.a.51
318    "~5,#a" ("abc" nil nil nil) "abc    ")    "~5,#a" ("abc" nil nil nil) "abc    " 3)
319    
320  (def-format-test format.a.52  (def-format-test format.a.52
321    "~5,#@A" ("abc" nil nil nil) "    abc")    "~5,#@A" ("abc" nil nil nil) "    abc" 3)
322    
323  (def-format-test format.a.53  (def-format-test format.a.53
324    "~4,#A" ("abc" nil nil) "abc   ")    "~4,#A" ("abc" nil nil) "abc   " 2)
325    
326  (def-format-test format.a.54  (def-format-test format.a.54
327    "~4,#@A" ("abc" nil nil) "   abc")    "~4,#@A" ("abc" nil nil) "   abc" 2)
328    
329  (def-format-test format.a.55  (def-format-test format.a.55
330    "~#,#A" ("abc" nil nil nil) "abc    ")    "~#,#A" ("abc" nil nil nil) "abc    " 3)
331    
332  (def-format-test format.a.56  (def-format-test format.a.56
333    "~#,#@A" ("abc" nil nil nil) "    abc")    "~#,#@A" ("abc" nil nil nil) "    abc" 3)
334    
335  (def-format-test format.a.57  (def-format-test format.a.57
336    "~-100A" ("xyz") "xyz")    "~-100A" ("xyz") "xyz")

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