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

Diff of /gcl/ansi-tests/assoc.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 150  Line 150 
150    (assoc 10 '((1 a) (5 b) (8 c) (11 d) (12 e)) :test-not #'>=)    (assoc 10 '((1 a) (5 b) (8 c) (11 d) (12 e)) :test-not #'>=)
151    (11 d))    (11 d))
152    
153    ;;; :test & :test-not together are harmless
154    
155    (defharmless assoc.test-and-test-not.1
156      (assoc 'a '((a . 1) (b . 2)) :test #'eql :test-not #'eql))
157    
158    (defharmless assoc.test-and-test-not.2
159      (assoc 'a '((a . 1) (b . 2)) :test-not #'eql :test #'eql))
160    
161  ;;; Order of argument evaluation  ;;; Order of argument evaluation
162    
163  (deftest assoc.order.1  (deftest assoc.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