/[gcl]/gcl/ansi-tests/etypecase.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/etypecase.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, Sun Mar 2 14:25:07 2003 UTC
# Line 52  Line 52 
52  (deftest etypecase.11  (deftest etypecase.11
53    (etypecase 1 (integer) (t 'a))    (etypecase 1 (integer) (t 'a))
54    nil)    nil)
55    
56    (deftest etypecase.12
57      (etypecase 'a
58        (number 'bad)
59        (#.(find-class 'symbol nil) 'good))
60      good)
61    

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