1 (defun implicit_plot-fix-up-non-equations (expr)
2 (let ((f #'(lambda (e) (if (and (consp e
) (eq (caar e
) 'mequal
)) e
(list '(mequal) e
0)))))
4 (cons '(mlist) (mapcar f
(rest expr
)))
7 ;; implicit_plot now punts to plot2d
8 (defmfun $implicit_plot
(expr &rest optional-args
)
10 ((expr-eqs (implicit_plot-fix-up-non-equations expr
))
11 (all-args (cons expr-eqs optional-args
)))
12 (mtell (intl:gettext
"implicit_plot is now obsolete. Calling plot2d instead:~%"))
13 (mtell "~M~%" (cons '($plot2d
) all-args
))
14 (apply #'$plot2d all-args
)))
