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

Diff of /gcl/ansi-tests/cons-test-10.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 50  Line 50 
50    (last (cons 'a 'b) 2)    (last (cons 'a 'b) 2)
51    (a . b))    (a . b))
52    
53  (deftest last.11  (deftest last.order.1
54    (let ((i 0) x y)    (let ((i 0) x y)
55      (values      (values
56       (last (progn (setf x (incf i)) (list 'a 'b 'c 'd))       (last (progn (setf x (incf i)) (list 'a 'b 'c 'd))
# Line 58  Line 58 
58       i x y))       i x y))
59    (c d) 2 1 2)    (c d) 2 1 2)
60    
61    (deftest last.order.2
62      (let ((i 0))
63        (values (last (progn (incf i) (list 'a 'b 'c 'd))) i))
64      (d) 1)
65    
66  (deftest last.error.1  (deftest last.error.1
67    (classify-error (last (list 'a 'b 'c) -1))    (classify-error (last (list 'a 'b 'c) -1))
68    type-error)    type-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