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

Diff of /gcl/ansi-tests/sublis.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 76  Line 76 
76                  #'(lambda (x y) (not (and (realp x) (realp y) (< x y)))))                  #'(lambda (x y) (not (and (realp x) (realp y) (< x y)))))
77    (x y z 20))    (x y z 20))
78    
79    (defharmless sublis.test-and-test-not.1
80      (sublis '((a . 1) (b . 2)) (list 'a 'b 'c 'd)
81               :test #'eql :test-not #'eql))
82    
83    (defharmless sublis.test-and-test-not.2
84      (sublis '((a . 1) (b . 2)) (list 'a 'b 'c 'd)
85               :test-not #'eql :test #'eql))
86    
87  ;;; Order of argument evaluation  ;;; Order of argument evaluation
88  (deftest sublis.order.1  (deftest sublis.order.1
89    (let ((i 0) w x y z)    (let ((i 0) 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