そうか。リストに0があったときに掛け算を脱出しているのかどうかは、こうすればわかるのか。

gosh> (product/cps '(2 3 4 0 'a) 1)
0
gosh> (product/cps '(2 3 4 'a) 1)
*** ERROR: real number required: (quote a)

どうやら脱出はできているようだ。