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

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

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

revision 1.4 by pfdietz, Sat Feb 8 06:23:02 2003 UTC revision 1.5 by pfdietz, Mon Feb 17 04:22:03 2003 UTC
# Line 74  Line 74 
74    (nthcdr 1 (cons 'a 'b))    (nthcdr 1 (cons 'a 'b))
75    b)    b)
76    
77  (deftest nthcdr.6  (deftest nthcdr.order.1
78    (let ((i 0) x y)    (let ((i 0) x y)
79      (values      (values
80       (nthcdr (setf x (incf i))       (nthcdr (setf x (incf i))
# Line 89  Line 89 
89    (rest (list 'a 'b 'c))    (rest (list 'a 'b 'c))
90    (b c))    (b c))
91    
92    (deftest rest.order.1
93      (let ((i 0))
94        (values (rest (progn (incf i) '(a b))) i))
95      (b) 1)
96    
97  (deftest rest.error.1  (deftest rest.error.1
98    (classify-error (rest))    (classify-error (rest))
99    program-error)    program-error)

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26