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

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

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

revision 1.2 by pfdietz, Sat Jun 14 15:10:40 2003 UTC revision 1.3 by pfdietz, Mon Jun 16 11:38:15 2003 UTC
# Line 146  Line 146 
146    (member 10 '(1 2 3 4 10 11 14 18) :test-not #'>=)    (member 10 '(1 2 3 4 10 11 14 18) :test-not #'>=)
147    (11 14 18))    (11 14 18))
148    
149    (defharmless member.test-and-test-not.1
150      (member 'b '(a b c) :test #'eql :test-not #'eql))
151    
152    (defharmless member.test-and-test-not.2
153      (member 'b '(a b c) :test-not #'eql :test #'eql))
154    
155  ;;; Order of evaluation  ;;; Order of evaluation
156    
157  (deftest member.order.1  (deftest member.order.1

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