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

Diff of /gcl/ansi-tests/nsublis.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 67  Line 67 
67     :key nil)     :key nil)
68    (2 2 b b))    (2 2 b b))
69    
70    (deftest nsublis.10
71      (check-nsublis  (list 0 3 8 20)
72                      '((1 . x) (5 . y) (10 . z))
73                      :test #'(lambda (x y) (and (realp x) (realp y) (< x y))))
74      (x y z 20))
75    
76    (deftest nsublis.11
77      (check-nsublis  (list 0 3 8 20)
78                      '((1 . x) (5 . y) (10 . z))
79                      :test-not
80                      #'(lambda (x y) (not (and (realp x) (realp y) (< x y)))))
81      (x y z 20))
82    
83  ;;; Order of argument evaluation  ;;; Order of argument evaluation
84  (deftest nsublis.order.1  (deftest nsublis.order.1
85    (let ((i 0) w x y z)    (let ((i 0) w x y z)

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