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

Diff of /gcl/ansi-tests/remove.lsp

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

revision 1.2 by pfdietz, Mon Sep 30 01:12:10 2002 UTC revision 1.3 by pfdietz, Thu Oct 17 13:16:56 2002 UTC
# Line 310  Line 310 
310  (deftest remove-if-list.2  (deftest remove-if-list.2
311    (let* ((orig '(a b c a b d a c b a e))    (let* ((orig '(a b c a b d a c b a e))
312           (x (copy-seq orig))           (x (copy-seq orig))
313           (y (remove-if #'(lambda (y) (eq y 'a)) x :key nil)))           (y (remove-if #'(lambda (y) (eqt y 'a)) x :key nil)))
314      (and (equalp orig x) y))      (and (equalp orig x) y))
315    (b c b d c b e))    (b c b d c b e))
316    
# Line 324  Line 324 
324  (deftest remove-if-not-list.2  (deftest remove-if-not-list.2
325    (let* ((orig '(a b c a b d a c b a e))    (let* ((orig '(a b c a b d a c b a e))
326           (x (copy-seq orig))           (x (copy-seq orig))
327           (y (remove-if-not #'(lambda (y) (not (eq y 'a))) x :key nil)))           (y (remove-if-not #'(lambda (y) (not (eqt y 'a))) x :key nil)))
328      (and (equalp orig x) y))      (and (equalp orig x) y))
329    (b c b d c b e))    (b c b d c b e))
330    
# Line 338  Line 338 
338  (deftest delete-if-list.2  (deftest delete-if-list.2
339    (let* ((orig '(a b c a b d a c b a e))    (let* ((orig '(a b c a b d a c b a e))
340           (x (copy-seq orig))           (x (copy-seq orig))
341           (y (delete-if #'(lambda (y) (eq y 'a)) x :key nil)))           (y (delete-if #'(lambda (y) (eqt y 'a)) x :key nil)))
342      y)      y)
343    (b c b d c b e))    (b c b d c b e))
344    
# Line 352  Line 352 
352  (deftest delete-if-not-list.2  (deftest delete-if-not-list.2
353    (let* ((orig '(a b c a b d a c b a e))    (let* ((orig '(a b c a b d a c b a e))
354           (x (copy-seq orig))           (x (copy-seq orig))
355           (y (delete-if-not #'(lambda (y) (not (eq y 'a))) x :key nil)))           (y (delete-if-not #'(lambda (y) (not (eqt y 'a))) x :key nil)))
356      y)      y)
357    (b c b d c b e))    (b c b d c b e))
358    

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