[Maxima-bugs] [ maxima-Bugs-771301 ] trigrat(sin(1)) internal error /FIX

[SourceForge.net <no...@so...>]

Bugs item #771301, was opened at 2003-07-14 19:50
Message generated for change (Tracker Item Submitted) made by Item Submitter
You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=104933&aid=771301&group_id=4933

Category: None
Group: None
Status: Open
Resolution: None
Priority: 5
Submitted By: Stavros Macrakis (macrakis)
Assigned to: Nobody/Anonymous (nobody)
Summary: trigrat(sin(1)) internal error /FIX

Initial Comment:
trigrat(sin(1)) => Error: $%I is not of type LIST.

Fix: in $listofei (trigrat.lisp), replace

(cond ((and
        (CONSP VAR)
        (CONSP (CAR VAR))
        (equal (caar var) 'mexpt)
        (equal (cadr var) '$%e)
        (equal (caaaddr var) 'mtimes)
        (equal (cadaddr var) '$%i))
       (setq $lexp (cons var $lexp))
      ...

with

(cond ((and
        (mexptp var)
        (equal (cadr var) '$%e)
        (mtimesp (caddr var))
        (eq (cadr (caddr var)) '$%i))
       (setq $lexp (cons var $lexp))
       ...


----------------------------------------------------------------------

You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=104933&aid=771301&group_id=4933