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

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

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

revision 1.2 by pfdietz, Mon Feb 17 11:54:02 2003 UTC revision 1.3 by pfdietz, Mon Feb 17 12:25:11 2003 UTC
# Line 33  Line 33 
33    (let ((i 0))    (let ((i 0))
34      (values (if (= (incf i) 1) 't nil) i))      (values (if (= (incf i) 1) 't nil) i))
35    t 1)    t 1)
   
 (deftest if.error.1  
   (classify-error (if))  
   program-error)  
   
 (deftest if.error.2  
   (classify-error (if t 1 2 3))  
   program-error)  
   
   
   
   
     

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

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