/[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.1 by pfdietz, Fri Oct 18 11:58:46 2002 UTC revision 1.2 by pfdietz, Mon Jan 13 14:11:50 2003 UTC
# Line 19  Line 19 
19    (let ((x 1.00000001))    (let ((x 1.00000001))
20      (eqlt x (identity x)))      (eqlt x (identity x)))
21    t)    t)
22    
23    (deftest identity.error.1
24      (classify-error (identity))
25      program-error)
26    
27    (deftest identity.error.2
28      (classify-error (identity 'a 'a))
29      program-error)

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

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