Parent Directory | Revision Log | 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 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |