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

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

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

revision 1.1 by pfdietz, Thu Sep 26 16:53:37 2002 UTC revision 1.2 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-exclusive-or      (let ((result (apply #'set-exclusive-or
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-exclusive-or (x y z &key (key #'identity)  (defun check-set-exclusive-or (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) (or (member e x :key key :test test)     (every #'(lambda (e) (or (member e x :key key :test test)
36                              (member e y :key key :test test)))                              (member e y :key key :test test)))
37            z)            z)
# Line 229  Line 229 
229    (setf y (copy-list y))    (setf y (copy-list y))
230    (apply #'nset-exclusive-or    (apply #'nset-exclusive-or
231           x y           x y
232           `(,@(unless (eq key 'no-key) `(:key ,key))           `(,@(unless (eqt key 'no-key) `(:key ,key))
233               ,@(when test `(:test ,test))               ,@(when test `(:test ,test))
234               ,@(when test-not `(:test-not ,test-not)))))               ,@(when test-not `(:test-not ,test-not)))))
235    

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