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

Diff of /gcl/ansi-tests/rassoc.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, Sat Jun 14 15:10:40 2003 UTC
# Line 178  Line 178 
178                        (eqt x y))))                        (eqt x y))))
179    (3 . a))    (3 . a))
180    
181    (deftest rassoc.26
182      (rassoc 10 '((a . 1) (b . 5) (c . 10) (d . 15) (e . 40))
183              :test #'<)
184      (d . 15))
185    
186    (deftest rassoc.27
187      (rassoc 10 '((a . 1) (b . 5) (c . 10) (d . 15) (e . 40))
188              :test-not #'>=)
189      (d . 15))
190    
191  ;;; Order of argument evaluation  ;;; Order of argument evaluation
192    
193  (deftest rassoc.order.1  (deftest rassoc.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