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

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

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

revision 1.3 by pfdietz, Fri Jan 24 04:22:54 2003 UTC revision 1.4 by pfdietz, Mon Feb 17 11:54:02 2003 UTC
# Line 20  Line 20 
20      (eqlt x (check-values (identity x))))      (eqlt x (check-values (identity x))))
21    t)    t)
22    
23    (deftest identity.order.1
24      (let ((i 0))
25        (values (identity (incf i)) i))
26      1 1)
27    
28  (deftest identity.error.1  (deftest identity.error.1
29    (classify-error (identity))    (classify-error (identity))
30    program-error)    program-error)

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

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