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

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

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

revision 1.3 by pfdietz, Tue Feb 11 23:29:19 2003 UTC revision 1.4 by pfdietz, Wed Feb 12 02:19:29 2003 UTC
# Line 64  Line 64 
64  (deftest typecase.14  (deftest typecase.14
65    (typecase 1 (symbol 'a) (otherwise))    (typecase 1 (symbol 'a) (otherwise))
66    nil)    nil)
   
 (deftest typecase.15  
   (typecase 'foo (t :wrong) (symbol :right) (t :also-wrong))  
   :right)  
   
 (deftest typecase.16  
   (typecase 'foo (t :wrong) (symbol :right))  
   :right)  
   
   
   
   
   
       
   
   

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