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

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

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

revision 1.2 by pfdietz, Sun Oct 13 16:44:49 2002 UTC revision 1.3 by pfdietz, Thu Oct 17 13:16:56 2002 UTC
# Line 30  Line 30 
30          (let ((result (nconc x y)))          (let ((result (nconc x y)))
31            (and            (and
32             (check-scaffold-copy y ycopy)             (check-scaffold-copy y ycopy)
33             (eq (cdddr x) y)             (eqt (cdddr x) y)
34             result))))             result))))
35    (a b c d e f))    (a b c d e f))
36    
# Line 38  Line 38 
38      (let ((x (list 'a 'b 'c)))      (let ((x (list 'a 'b 'c)))
39        (nconc x x)        (nconc x x)
40        (and        (and
41         (eq (cdddr x) x)         (eqt (cdddr x) x)
42         (null (list-length x))))         (null (list-length x))))
43    t)    t)
44    
# Line 48  Line 48 
48            (z (list 'i 'j 'k)))            (z (list 'i 'j 'k)))
49        (let ((result (nconc x y z 'foo)))        (let ((result (nconc x y z 'foo)))
50          (and          (and
51           (eq (nthcdr 3 x) y)           (eqt (nthcdr 3 x) y)
52           (eq (nthcdr 5 y) z)           (eqt (nthcdr 5 y) z)
53           (eq (nthcdr 3 z) 'foo)           (eqt (nthcdr 3 z) 'foo)
54           result)))           result)))
55    (a b c d e f g h i j k . foo))    (a b c d e f g h i j k . foo))
56    
# Line 119  Line 119 
119          (and          (and
120           (check-scaffold-copy x xcopy)           (check-scaffold-copy x xcopy)
121           (check-scaffold-copy y ycopy)           (check-scaffold-copy y ycopy)
122           (eq (cdddr result) y)           (eqt (cdddr result) y)
123           result)))           result)))
124    (c b a d e f))    (c b a d e f))
125    

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