/[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.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 73  Line 73 
73                                (not (and (realp x) (realp y) (< x y)))))                                (not (and (realp x) (realp y) (< x y)))))
74    (1 2 10 x x 4))    (1 2 10 x x 4))
75    
76    (defharmless nsubset.test-and-test-not.1
77      (nsubst 'a 'b (list 'a 'b 'c 'd 'e) :test #'eq :test-not #'eq))
78    
79    (defharmless nsubset.test-and-test-not.2
80      (nsubst 'a 'b (list 'a 'b 'c 'd 'e) :test-not #'eq :test #'eq))
81    
82  ;;; Order of argument evaluation  ;;; Order of argument evaluation
83  (deftest nsubst.order.1  (deftest nsubst.order.1
84    (let ((i 0) v w x y z)    (let ((i 0) v w x y z)

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