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

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

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

revision 1.2 by pfdietz, Thu Oct 17 13:16:56 2002 UTC revision 1.3 by pfdietz, Wed Oct 23 03:10:23 2002 UTC
# Line 164  Line 164 
164  ;; Check that a null key argument is ignored  ;; Check that a null key argument is ignored
165    
166  (deftest member-25  (deftest member-25
167      (handler-case    (member 'a '(c d a b e) :key nil)
         (member 'a '(c d a b e) :key nil)  
       (error (c) c))  
168    (a b e))    (a b e))
169    
170  (deftest member-26  (deftest member-26
171      (handler-case    (member 'z '(a b c d) :key nil)
         (member 'z '(a b c d) :key nil)  
       (error (c) c))  
172    nil)    nil)
   

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

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