/[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.7 by pfdietz, Sat Feb 22 01:37:02 2003 UTC revision 1.8 by pfdietz, Sun Mar 2 14:25:07 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    (deftest typecase.15
69      (typecase 'a
70        (number 'bad)
71        (#.(find-class 'symbol nil) 'good))
72      good)

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8

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