/[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.4 by pfdietz, Wed Feb 12 02:19:29 2003 UTC revision 1.5 by pfdietz, Wed Feb 12 02:25:41 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)
67    
68    ;;; (deftype otherwise () nil)
69    
70    (deftest typecase.15
71      (typecase 'foo (otherwise :wrong) (t :right))
72      :right)
73    
74    (deftest typecase.16
75      (typecase 'foo (otherwise :wrong) (symbol :right) (t :wrong2))
76      :right)

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

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