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

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

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

revision 1.9 by pfdietz, Mon Feb 17 04:22:03 2003 UTC revision 1.10 by pfdietz, Sat Feb 22 01:15:59 2003 UTC
# Line 225  Line 225 
225    (classify-error (locally (member-if #'identity 'a) t))    (classify-error (locally (member-if #'identity 'a) t))
226    type-error)    type-error)
227    
228    (deftest member-if.error.9
229      (classify-error (member-if #'cons '(a b c)))
230      program-error)
231    
232    (deftest member-if.error.10
233      (classify-error (member-if #'identity '(a b c) :key #'cons))
234      program-error)
235    
236    
237  (deftest member-if-not.error.1  (deftest member-if-not.error.1
238    (classify-error (member-if-not #'identity 'a))    (classify-error (member-if-not #'identity 'a))
# Line 257  Line 265 
265  (deftest member-if-not.error.8  (deftest member-if-not.error.8
266    (classify-error (locally (member-if-not #'identity 'a) t))    (classify-error (locally (member-if-not #'identity 'a) t))
267    type-error)    type-error)
268    
269    (deftest member-if-not.error.9
270      (classify-error (member-if-not #'cons '(a b c)))
271      program-error)
272    
273    (deftest member-if-not.error.10
274      (classify-error (member-if-not #'identity '(a b c) :key #'cons))
275      program-error)

Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10

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