(if (and (equal? (car x) 'else)
			          (is-expression? (cadr x)))
			     #t
			      (and (is-cond-clause? (car x))
				   (visit (cdr x)))))])