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

Diff of /gcl/ansi-tests/subst.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1 by pfdietz, Sun Apr 20 13:17:46 2003 UTC revision 1.2 by pfdietz, Sat Jun 14 15:10:40 2003 UTC
# Line 61  Line 61 
61                 :key nil)                 :key nil)
62    (a a c d a a))    (a a c d a a))
63    
64    (deftest subst.10
65      (check-subst 'x 10 (copy-tree '(1 2 10 20 30 4))
66                   :test #'(lambda (x y) (and (realp x) (realp y) (< x y))))
67      (1 2 10 x x 4))
68    
69    (deftest subst.11
70      (check-subst 'x 10 (copy-tree '(1 2 10 20 30 4))
71                   :test-not #'(lambda (x y)
72                                 (not (and (realp x) (realp y) (< x y)))))
73      (1 2 10 x x 4))
74    
75  ;;; Order of argument evaluation  ;;; Order of argument evaluation
76  (deftest subst.order.1  (deftest subst.order.1
77    (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