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

Diff of /gcl/ansi-tests/format-logical-block.lsp

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

revision 1.4 by pfdietz, Sat Aug 21 11:48:40 2004 UTC revision 1.5 by pfdietz, Sat Aug 21 11:58:41 2004 UTC
# Line 107  Line 107 
107    (signals-error-always (format nil "~@<~@;~A~;bar~A~:>" '(X) '(Y)) error)    (signals-error-always (format nil "~@<~@;~A~;bar~A~:>" '(X) '(Y)) error)
108    t t)    t t)
109    
110    (deftest format.logical-block.error.25
111      (signals-error-always (format nil "1~<X~<Y~:>Z~>2" nil nil nil) error)
112      t t)
113    
114    ;;; "an error is also signaled if the ~<...~:;...~> form of ~<...~> is used
115    ;;; in the same format string with ~W, ~_, ~<...~:>, ~I, or ~:T."
116    
117    (deftest format.logical-block.error.26
118      (signals-error-always (format nil "~<~:;~>~<~:>" nil nil nil) error)
119      t t)
120    
121    (deftest format.logical-block.error.27
122      (signals-error-always (format nil "~<~:>~<~:;~>" nil nil nil) error)
123      t t)
124    
125  ;;; Non-error tests  ;;; Non-error tests
126    
127  (def-pprint-test format.logical-block.1  (def-pprint-test format.logical-block.1

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

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