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

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

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

revision 1.2 by pfdietz, Mon Nov 8 13:12:47 2004 UTC revision 1.3 by pfdietz, Mon Nov 8 13:17:48 2004 UTC
# Line 16  Line 16 
16    (format nil "~{~}" nil)    (format nil "~{~}" nil)
17    "")    "")
18    
19    (deftest format.{.1b
20      (format nil "~0{~}" '(1 2 3))
21      "")
22    
23  (deftest format.{.2  (deftest format.{.2
24    (format nil "~{ ~}" nil)    (format nil "~{ ~}" nil)
25    "")    "")
# Line 68  Line 72 
72    (format nil "~{X ~A~^ Y ~A~^ ~}" '(1 2 3 4))    (format nil "~{X ~A~^ Y ~A~^ ~}" '(1 2 3 4))
73    "X 1 Y 2 X 3 Y 4")    "X 1 Y 2 X 3 Y 4")
74    
75    (deftest format.{.12
76      (format nil "~{~^~}" '(1 2 3 4 5))
77      "")
78    
79  ;;; Tests of ~@{ ... ~}  ;;; Tests of ~@{ ... ~}
80    
81  (deftest format.@{.1  (deftest format.@{.1

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