/[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.2 by pfdietz, Sat Feb 8 06:23:02 2003 UTC revision 1.3 by pfdietz, Tue Feb 11 23:29:19 2003 UTC
# Line 65  Line 65 
65    (typecase 1 (symbol 'a) (otherwise))    (typecase 1 (symbol 'a) (otherwise))
66    nil)    nil)
67    
68    (deftest typecase.15
69      (typecase 'foo (t :wrong) (symbol :right) (t :also-wrong))
70      :right)
71    
72    (deftest typecase.16
73      (typecase 'foo (t :wrong) (symbol :right))
74      :right)
75    
76    
77    
78    
79    
80            

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