12
12
;(in-package 'climax) ; for Macsyma Inc, Macsyma
14
14
;;; To run in Schelter's Maxima comment the above and uncomment these:
16
16
(defmacro mlist* (arg1 &rest more-args) `(list* '(mlist simp) ,arg1 ,@more-args))
18
18
(and (listp expr)(member (caar expr) '(MEQUAL MNOTEQUAL MGREATERP MLESSP MGEQP MLEQP))))