/[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.13 by pfdietz, Fri May 6 01:13:41 2005 UTC revision 1.14 by pfdietz, Tue Aug 23 13:56:30 2005 UTC
# Line 347  Line 347 
347    (signals-error (format nil "~:{~A~}" '(#(X Y Z))) type-error)    (signals-error (format nil "~:{~A~}" '(#(X Y Z))) type-error)
348    t)    t)
349    
350  (deftest format.\:@.error.1  (deftest format.\:@{.error.1
351    (signals-type-error x 'x (format nil "~:@{~A~}" x))    (signals-type-error x 'x (format nil "~:@{~A~}" x))
352    t)    t)
353    
354  (deftest format.\:@.error.2  (deftest format.\:@{.error.2
355    (signals-type-error x 0 (format nil "~:@{~A~}" x))    (signals-type-error x 0 (format nil "~:@{~A~}" x))
356    t)    t)
357    
358  (deftest format.\:@.error.3  (deftest format.\:@{.error.3
359    (signals-type-error x #*01101 (format nil "~:@{~A~}" x))    (signals-type-error x #*01101 (format nil "~:@{~A~}" x))
360    t)    t)
361    
362  (deftest format.\:@.error.4  (deftest format.\:@{.error.4
363    (signals-type-error x "abc" (format nil "~:@{~A~}" x))    (signals-type-error x "abc" (format nil "~:@{~A~}" x))
364    t)    t)
365    
366  (deftest format.\:@.error.5  (deftest format.\:@{.error.5
367    (signals-error (format nil "~:@{~A ~A~}" '(x . y)) type-error)    (signals-error (format nil "~:@{~A ~A~}" '(x . y)) type-error)
368    t)    t)

Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14

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