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

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

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

revision 1.2 by camm, Wed Oct 9 19:05:01 2002 UTC revision 1.3 by pfdietz, Thu Oct 17 13:16:56 2002 UTC
# Line 18  Line 18 
18          (ycopy (make-scaffold-copy y)))          (ycopy (make-scaffold-copy y)))
19      (let ((result (apply #'set-difference      (let ((result (apply #'set-difference
20                           x y                           x y
21                           `(,@(unless (eq key 'no-key) `(:key ,key))                           `(,@(unless (eqt key 'no-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))))))  
24        (cond        (cond
# Line 31  Line 31 
31  (defun check-set-difference (x y z &key (key #'identity)  (defun check-set-difference (x y z &key (key #'identity)
32                                          (test #'eql))                                          (test #'eql))
33    (and    (and
34     (not (eq 'failed z))     (not (eqt 'failed z))
35     (every #'(lambda (e) (member e x :key key :test test)) z)     (every #'(lambda (e) (member e x :key key :test test)) z)
36     (every #'(lambda (e) (or (member e y :key key :test test)     (every #'(lambda (e) (or (member e y :key key :test test)
37                              (member e z :key key :test test))) x)                              (member e z :key key :test test))) x)
# Line 143  Line 143 
143                          (when (or (member x '(e f g h))                          (when (or (member x '(e f g h))
144                                    (member y '(1 2 3 4)))                                    (member y '(1 2 3 4)))
145                            (return-from fail 'fail))                            (return-from fail 'fail))
146                          (eq x y))))                          (eqt x y))))
147              #'<))              #'<))
148    (1 2 3 4))    (1 2 3 4))
149    
# Line 158  Line 158 
158                          (when (or (member x '(e f g h))                          (when (or (member x '(e f g h))
159                                    (member y '(1 2 3 4)))                                    (member y '(1 2 3 4)))
160                            (return-from fail 'fail))                            (return-from fail 'fail))
161                          (eq x y))))                          (eqt x y))))
162              #'<))              #'<))
163    (1 2 3 4))    (1 2 3 4))
164    
# Line 173  Line 173 
173                          (when (or (member x '(e f g h))                          (when (or (member x '(e f g h))
174                                    (member y '(1 2 3 4)))                                    (member y '(1 2 3 4)))
175                            (return-from fail 'fail))                            (return-from fail 'fail))
176                          (not (eq x y)))))                          (not (eqt x y)))))
177              #'<))              #'<))
178    (1 2 3 4))    (1 2 3 4))
179    
# Line 188  Line 188 
188                          (when (or (member x '(e f g h))                          (when (or (member x '(e f g h))
189                                    (member y '(1 2 3 4)))                                    (member y '(1 2 3 4)))
190                            (return-from fail 'fail))                            (return-from fail 'fail))
191                          (not (eq x y)))))                          (not (eqt x y)))))
192              #'<))              #'<))
193    (1 2 3 4))    (1 2 3 4))
194    
# Line 201  Line 201 
201    (setf y (copy-list y))    (setf y (copy-list y))
202    (apply #'nset-difference    (apply #'nset-difference
203           x y           x y
204           `(,@(unless (eq key 'no-key) `(:key ,key))           `(,@(unless (eqt key 'no-key) `(:key ,key))
205               ,@(when test `(:test ,test))               ,@(when test `(:test ,test))
206               ,@(when test-not `(:test-not ,test-not)))))               ,@(when test-not `(:test-not ,test-not)))))
207    
# Line 318  Line 318 
318                          (when (or (member x '(e f g h))                          (when (or (member x '(e f g h))
319                                    (member y '(1 2 3 4)))                                    (member y '(1 2 3 4)))
320                            (return-from fail 'fail))                            (return-from fail 'fail))
321                          (eq x y))))                          (eqt x y))))
322              #'<))              #'<))
323    (1 2 3 4))    (1 2 3 4))
324    
# Line 333  Line 333 
333                          (when (or (member x '(e f g h))                          (when (or (member x '(e f g h))
334                                    (member y '(1 2 3 4)))                                    (member y '(1 2 3 4)))
335                            (return-from fail 'fail))                            (return-from fail 'fail))
336                          (eq x y))))                          (eqt x y))))
337              #'<))              #'<))
338    (1 2 3 4))    (1 2 3 4))
339    
# Line 348  Line 348 
348                          (when (or (member x '(e f g h))                          (when (or (member x '(e f g h))
349                                    (member y '(1 2 3 4)))                                    (member y '(1 2 3 4)))
350                            (return-from fail 'fail))                            (return-from fail 'fail))
351                          (not (eq x y)))))                          (not (eqt x y)))))
352              #'<))              #'<))
353    (1 2 3 4))    (1 2 3 4))
354    
# Line 362  Line 362 
362                          (when (or (member x '(e f g h))                          (when (or (member x '(e f g h))
363                                    (member y '(1 2 3 4)))                                    (member y '(1 2 3 4)))
364                            (return-from fail 'fail))                            (return-from fail 'fail))
365                          (not (eq x y)))))                          (not (eqt x y)))))
366              #'<))              #'<))
367    (1 2 3 4))    (1 2 3 4))

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