diff

file:comm.lisp
変数の値を変えて、deriv に引数全部を渡す。
maiximaで以下を実行

diff(x^2,x,1);

;;args <- '((($F . SIMP) $X) $X 1)
(defmfun $diff (&rest args)
   ;;dynamic-extent <- '((($F . SIMP) $X) $X 1)
  (declare (dynamic-extent args))
   ;;derivlist <- nil
  (let (derivlist)
    (deriv args)))