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

Diff of /gcl/ansi-tests/ecase.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1 by pfdietz, Sat Oct 19 01:45:01 2002 UTC revision 1.2 by pfdietz, Sat Feb 8 06:23:02 2003 UTC
# Line 143  Line 143 
143  (deftest ecase.31  (deftest ecase.31
144    (ecase (values 'b 'c) (c 0) ((a b) 10) (d 20))    (ecase (values 'b 'c) (c 0) ((a b) 10) (d 20))
145    10)    10)
146    
147    (deftest ecase.32
148      (ecase 'a (a) (b 'b))
149      nil)

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