/[gcl]/gcl/ansi-tests/cons-test-24.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/cons-test-24.lsp

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

revision 1.1 by pfdietz, Thu Sep 26 16:53:38 2002 UTC revision 1.2 by pfdietz, Thu Oct 17 13:16:56 2002 UTC
# Line 17  Line 17 
17          (ycopy (make-scaffold-copy y)))          (ycopy (make-scaffold-copy y)))
18      (let ((result      (let ((result
19             (apply #'subsetp x y             (apply #'subsetp x y
20                    `(,@(unless (eq key 'no-key)                    `(,@(unless (eqt key 'no-key)
21                          `(:key ,key))                          `(:key ,key))
22                      ,@(when test `(:test ,test))                      ,@(when test `(:test ,test))
23                      ,@(when test-not `(:test-not ,test-not))))))                      ,@(when test-not `(:test-not ,test-not))))))
# Line 75  Line 75 
75                           (list '(z . c) '(a . y) '(b . 100) '(e . f)                           (list '(z . c) '(a . y) '(b . 100) '(e . f)
76                                '(c . foo)))                                '(c . foo)))
77                          :test #'(lambda (e1 e2)                          :test #'(lambda (e1 e2)
78                                     (eq e1 (car e2))))                                     (eqt e1 (car e2))))
79    t)    t)
80    
81  (deftest subsetp-10  (deftest subsetp-10
# Line 85  Line 85 
85                               (list '(z . c) '(a . y) '(b . 100) '(e . f)                               (list '(z . c) '(a . y) '(b . 100) '(e . f)
86                                    '(c . foo)))                                    '(c . foo)))
87                              :test #'(lambda (e1 e2)                              :test #'(lambda (e1 e2)
88                                        (eq e1 (car e2)))                                        (eqt e1 (car e2)))
89                              :key nil)                              :key nil)
90        (error (c) c))        (error (c) c))
91    t)    t)
# Line 96  Line 96 
96                           (list '(z . c) '(a . y) '(b . 100) '(e . f)                           (list '(z . c) '(a . y) '(b . 100) '(e . f)
97                                 '(c . foo)))                                 '(c . foo)))
98                          :test-not  #'(lambda (e1 e2)                          :test-not  #'(lambda (e1 e2)
99                                         (not (eq e1 (car e2)))))                                         (not (eqt e1 (car e2)))))
100    t)    t)
101    
102  ;; Check that it maintains order of arguments  ;; Check that it maintains order of arguments

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