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

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

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

revision 1.7 by pfdietz, Wed Jan 29 02:11:55 2003 UTC revision 1.8 by pfdietz, Mon Feb 17 11:54:02 2003 UTC
# Line 89  Line 89 
89      y)      y)
90    "edcba")    "edcba")
91    
92    (deftest reverse.order.1
93      (let ((i 0))
94        (values
95         (reverse (progn (incf i) (list 'a 'b 'c 'd)))
96         i))
97      (d c b a) 1)
98    
99  ;;; Error cases  ;;; Error cases
100    
101  (deftest reverse.error.1  (deftest reverse.error.1

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8

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