/[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.5 by pfdietz, Wed Feb 12 02:25:41 2003 UTC revision 1.6 by pfdietz, Fri Feb 14 05:10:36 2003 UTC
# Line 73  Line 73 
73    
74  (deftest typecase.16  (deftest typecase.16
75    (typecase 'foo (otherwise :wrong) (symbol :right) (t :wrong2))    (typecase 'foo (otherwise :wrong) (symbol :right) (t :wrong2))
   :right)  
76      :right)

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

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