maximaをlispで拡張する: nonvarcheck

2010年11月5日金曜日

nonvarcheck

file: comm.lisp

(defmfun nonvarcheck (e fn)
  (if (or (mnump e)
   (maxima-integerp e)
   (and (not (atom e)) (not (eq (caar e) 'mqapply)) (mopp1 (caar e))))
      (merror (intl:gettext "~:M: second argument must be a variable; found ~M") fn e)))

0 件のコメント:

コメントを投稿

登録: コメントの投稿 (Atom)