/[gcl]/gcl/ansi-tests/cons-test-07.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/cons-test-07.lsp

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

revision 1.5 by pfdietz, Wed Nov 27 04:22:36 2002 UTC revision 1.6 by pfdietz, Mon Jan 13 14:11:49 2003 UTC
# Line 128  Line 128 
128      (revappend (copy-tree '(a (b c) d)) nil)      (revappend (copy-tree '(a (b c) d)) nil)
129    (d (b c) a))    (d (b c) a))
130    
131    (deftest revappend.error.1
132      (classify-error (revappend))
133      program-error)
134    
135    (deftest revappend.error.2
136      (classify-error (revappend nil))
137      program-error)
138    
139    (deftest revappend.error.3
140      (classify-error (revappend nil nil nil))
141      program-error)
142    
143  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
144  ;;; nreconc  ;;; nreconc
145    
# Line 143  Line 155 
155    (nreconc nil 'a)    (nreconc nil 'a)
156    a)    a)
157    
158    (deftest nreconc.error.1
159      (classify-error (nreconc))
160      program-error)
161    
162    (deftest nreconc.error.2
163      (classify-error (nreconc nil))
164      program-error)
165    
166    (deftest nreconc.error.3
167      (classify-error (nreconc nil nil nil))
168      program-error)

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

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