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

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

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

revision 1.5 by pfdietz, Wed Jan 29 02:11:55 2003 UTC revision 1.6 by pfdietz, Mon Feb 17 11:54:02 2003 UTC
# Line 86  Line 86 
86      y)      y)
87    "edcba")    "edcba")
88    
89    (deftest nreverse.order.1
90      (let ((i 0))
91        (values
92         (nreverse (progn (incf i) (list 'a 'b 'c 'd)))
93         i))
94      (d c b a) 1)
95    
96  (deftest nreverse.error.1  (deftest nreverse.error.1
97    (classify-error (nreverse 'a))    (classify-error (nreverse 'a))
98    type-error)    type-error)

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

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