Fix combinations of apply and some funcs that take numeric arguments

[kariya-mitsuru]

Fix combinations of apply and funcs below.

+
-
*
/
1+
1-

Ex.

(apply '+ '((+ 1 2) (+ 3 4))) ; should cause an error

[mattn]

結局のところ eval_node するな、ってことすかねw

[kariya-mitsuru]

eval_node は if とか setq とか let とかでは必要ですね。
Common Lisp HyperSpec で Function になってるものでは必要ないですね。eval は例外ですが…