/[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.1 by pfdietz, Sat Oct 19 04:11:29 2002 UTC revision 1.2 by pfdietz, Sat Feb 8 06:23:02 2003 UTC
# Line 57  Line 57 
57    (typecase 1 (integer) (t 'a))    (typecase 1 (integer) (t 'a))
58    nil)    nil)
59    
60    (deftest typecase.13
61      (typecase 1 (symbol 'a) (t))
62      nil)
63    
64    (deftest typecase.14
65      (typecase 1 (symbol 'a) (otherwise))
66      nil)
67    
68    
69    

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