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

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

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

revision 1.2 by pfdietz, Thu Oct 17 13:16:56 2002 UTC revision 1.3 by pfdietz, Wed Oct 23 03:10:23 2002 UTC
# Line 205  Line 205 
205    (c . 6))    (c . 6))
206    
207  (deftest rassoc-if-2  (deftest rassoc-if-2
208      (handler-case    (let* ((x (rev-assoc-list '((1 . a) (3 . b) (6 . c) (7 . d))))
209          (let* ((x (rev-assoc-list '((1 . a) (3 . b) (6 . c) (7 . d))))           (xcopy (make-scaffold-copy x))
210                 (xcopy (make-scaffold-copy x))           (result (rassoc-if #'oddp x :key #'1+)))
211                 (result (rassoc-if #'oddp x :key #'1+)))      (and
212            (and       (check-scaffold-copy x xcopy)
213             (check-scaffold-copy x xcopy)       (eqt result (third x))
214             (eqt result (third x))       result))
            result))  
       (program-error (c) c))  
215    (c . 6))    (c . 6))
216    
217  (deftest rassoc-if-3  (deftest rassoc-if-3
# Line 245  Line 243 
243    (c . 6))    (c . 6))
244    
245  (deftest rassoc-if-not-2  (deftest rassoc-if-not-2
246      (handler-case    (let* ((x (rev-assoc-list '((1 . a) (3 . b) (6 . c) (7 . d))))
247          (let* ((x (rev-assoc-list '((1 . a) (3 . b) (6 . c) (7 . d))))           (xcopy (make-scaffold-copy x))
248                 (xcopy (make-scaffold-copy x))           (result (rassoc-if-not #'evenp x :key #'1+)))
249                 (result (rassoc-if-not #'evenp x :key #'1+)))      (and
250            (and       (check-scaffold-copy x xcopy)
251             (check-scaffold-copy x xcopy)       (eqt result (third x))
252             (eqt result (third x))       result))
            result))  
       (program-error (c) c))  
253    (c . 6))    (c . 6))
254    
255  (deftest rassoc-if-not-3  (deftest rassoc-if-not-3

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