Case statements: Error in my reply.

[Mario O. Bourgoin]

I apologize for having made an error in my reply's example.  I left
out the expression that evaluates to the selection key.  Here is the
correct code:

        (case-every n
		    (0
		     (1+ count))
		    ((0 1)
		     (1+ ocount))
		    ((0 1 2)
		     (writeln count ocount))
		    (else
		     (writeln "unknown n")))

--Mario