/[gcl]/gcl/ansi-tests/nreverse.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/nreverse.lsp

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

revision 1.4 by pfdietz, Mon Jan 13 14:11:50 2003 UTC revision 1.5 by pfdietz, Wed Jan 29 02:11:55 2003 UTC
# Line 87  Line 87 
87    "edcba")    "edcba")
88    
89  (deftest nreverse.error.1  (deftest nreverse.error.1
90    (catch-type-error (nreverse 'a))    (classify-error (nreverse 'a))
91    type-error)    type-error)
92    
93  (deftest nreverse.error.2  (deftest nreverse.error.2
94    (catch-type-error (nreverse #\a))    (classify-error (nreverse #\a))
95    type-error)    type-error)
96    
97  (deftest nreverse.error.3  (deftest nreverse.error.3
98    (catch-type-error (nreverse 10))    (classify-error (nreverse 10))
99    type-error)    type-error)
100    
101  (deftest nreverse.error.4  (deftest nreverse.error.4
102    (catch-type-error (nreverse 0.3))    (classify-error (nreverse 0.3))
103    type-error)    type-error)
104    
105  (deftest nreverse.error.5  (deftest nreverse.error.5
106    (catch-type-error (nreverse 10/3))    (classify-error (nreverse 10/3))
107    type-error)    type-error)
108    
109  (deftest nreverse.error.6  (deftest nreverse.error.6
# Line 114  Line 114 
114    (classify-error (nreverse nil nil))    (classify-error (nreverse nil nil))
115    program-error)    program-error)
116    
117    (deftest nreverse.error.8
118      (classify-error (locally (nreverse 'a) t))
119      type-error)

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