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

Diff of /gcl/ansi-tests/nsubst.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 62  Line 62 
62                  :key nil)                  :key nil)
63    (a a c d a a))    (a a c d a a))
64    
65    (deftest nsubst.10
66      (check-nsubst 'x 10 (copy-tree '(1 2 10 20 30 4))
67                    :test #'(lambda (x y) (and (realp x) (realp y) (< x y))))
68      (1 2 10 x x 4))
69    
70    (deftest nsubst.11
71      (check-nsubst 'x 10 (copy-tree '(1 2 10 20 30 4))
72                    :test-not #'(lambda (x y)
73                                  (not (and (realp x) (realp y) (< x y)))))
74      (1 2 10 x x 4))
75    
76  ;;; Order of argument evaluation  ;;; Order of argument evaluation
77  (deftest nsubst.order.1  (deftest nsubst.order.1
78    (let ((i 0) v w x y z)    (let ((i 0) v 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