[Maxima] funmake_no_simp

[Barton Willis]

A guess:

(defun $funmake_no_simp (f l)
  (if ($listp l) `((,(getopr f) simp) ,@(cdr l))
    (merror "The second argument to 'funmake_no_simp' must be a list")))

Examples:

 (%i2) funmake_no_simp("^",[0,0]);
 (%o2) 0^0

 (%i3) funmake_no_simp('sin,[a,b,c,d]);
 (%o3) sin(a,b,c,d)

 (%i4) funmake_no_simp("^",[0,-1]);
 (%o4) 1/0

Possible usage:

 (%i9) tellsimp(''(funmake_no_simp('log,[0])),'infinity);
 (%o9) [logrule1,simpln]

 (%i10) log(0);
 (%o10) infinity

Barton

-----maxima-bounces at math.utexas.edu wrote: -----

>To: "Maxima - list" <maxima at math.utexas.edu>
>From: "Andrej Vodopivec" <andrej.vodopivec at gmail.com>
>Sent by: maxima-bounces at math.utexas.edu
>Date: 10/29/2008 10:05AM
>Subject: [Maxima] funmake_no_simp
>
>There is a feature request at the wxmaxima project for the Macsyma
>function funmake_no_simp.
>
>https://sourceforge.net/tracker2/?func=detail&aid=2121132&group_id=126731&
>atid=707631
>
>Maybe someone who knows how funmake_no_simp works and how to implement
>it can post a comment.
>
>--
>Andrej
>_______________________________________________
>Maxima mailing list
>Maxima at math.utexas.edu
>http://www.math.utexas.edu/mailman/listinfo/maxima