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

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

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

revision 1.2 by pfdietz, Sat Oct 19 01:45:01 2002 UTC revision 1.3 by pfdietz, Sat Feb 8 06:23:02 2003 UTC
# Line 153  Line 153 
153  (deftest case.31  (deftest case.31
154    (case (values 'b 'c) (c 0) ((a b) 10) (t 20))    (case (values 'b 'c) (c 0) ((a b) 10) (t 20))
155    10)    10)
156    
157    (deftest case.32
158      (case 'a (a) (t 'b))
159      nil)
160    
161    (deftest case.33
162      (case 'a (b 'b) (t))
163      nil)
164    
165    (deftest case.34
166      (case 'a (b 'b) (otherwise))
167      nil)
168    

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