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

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

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

revision 1.1 by pfdietz, Sun Apr 20 13:17:45 2003 UTC revision 1.2 by pfdietz, Mon Jun 16 11:38:15 2003 UTC
# Line 194  Line 194 
194             (not (eql x y))))))             (not (eql x y))))))
195    (4))    (4))
196    
197    (defharmless nintersection.test-and-test-not.1
198      (nintersection (list 'a 'b 'c) (list 'a 'c 'e) :test #'eql :test-not #'eql))
199    
200    (defharmless nintersection.test-and-test-not.2
201      (nintersection (list 'a 'b 'c) (list 'a 'c 'e) :test-not #'eql :test #'eql))
202    
203  ;;; Order of argument evaluation tests  ;;; Order of argument evaluation tests
204    
205  (deftest nintersection.order.1  (deftest nintersection.order.1

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

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