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

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

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

revision 1.1 by pfdietz, Sun Oct 13 01:24:40 2002 UTC revision 1.2 by pfdietz, Fri Oct 18 11:58:46 2002 UTC
# Line 24  Line 24 
24  (deftest elt-5a (safe-elt '(a b c d e) -4) type-error)  (deftest elt-5a (safe-elt '(a b c d e) -4) type-error)
25  (deftest elt-6  (deftest elt-6
26    (let ((x (make-int-list 1000)))    (let ((x (make-int-list 1000)))
27      (not (not      (notnot
28            (every       (every
29             #'(lambda (i)        #'(lambda (i)
30                 (eql i (safe-elt x i)))            (eql i (safe-elt x i)))
31             x))))        x)))
32    t)    t)
33    
34  (deftest elt-7  (deftest elt-7
# Line 61  Line 61 
61    (let ((x (list 'a 'b 'c 'd 'e)))    (let ((x (list 'a 'b 'c 'd 'e)))
62      (let ((y (loop for c on x collect c)))      (let ((y (loop for c on x collect c)))
63        (setf (elt x 2) 'f)        (setf (elt x 2) 'f)
64        (not        (notnot
65         (not         (every #'eq
66          (every #'eq                y
67                 y                (loop for c on x collect c)))))
                (loop for c on x collect c))))))  
68    t)    t)
69    
70  (deftest elt-12  (deftest elt-12

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