From: SourceForge.net <no...@so...> - 2007-01-13 01:28:54
|
Bugs item #1633149, was opened at 2007-01-11 05:58 Message generated for change (Comment added) made by robert_dodier You can respond by visiting: https://sourceforge.net/tracker/?func=detail&atid=104933&aid=1633149&group_id=4933 Please note that this message will contain a full copy of the comment thread, including the initial issue submission, for this request, not just the latest update. Category: Lisp Core Group: None Status: Open Resolution: None Priority: 1 Private: No Submitted By: Barton Willis (willisbl) Assigned to: Nobody/Anonymous (nobody) Summary: sum bug that never happens Initial Comment: In simpsum1, I see: (setq sgn ($asksign ex)) (cond ((eq sgn '$pos) '$inf) ((eq sgn '$neg) '$minf) ((eq sgn '$zero) 0) (t `((%sum simp) ,ex ,lo ,hi)))) The t clase should be `((%sum simp) ,ex ,i ,lo ,hi))). But this bug should never get triggered. Actually, I suppose the t clause should substitute back to the original sum index. Also, if it were up to me, I would change $asksign to csign. ---------------------------------------------------------------------- >Comment By: Robert Dodier (robert_dodier) Date: 2007-01-12 18:28 Message: Logged In: YES user_id=501686 Originator: NO If you want to make those changes, I would say go ahead. ---------------------------------------------------------------------- You can respond by visiting: https://sourceforge.net/tracker/?func=detail&atid=104933&aid=1633149&group_id=4933 |