Testsuite failure in rtest14.mac - specint(t^(3/4)*%e^(-t^2/2/b)*%e^(-p*t),t);

• Subject: Testsuite failure in rtest14.mac - specint(t^(3/4)*%e^(-t^2/2/b)*%e^(-p*t),t);
• From: Raymond Toy
• Date: Tue, 07 Dec 2004 16:07:16 -0500

>>>>> "James" == James Amundson <amundson@users.sourceforge.net> writes:

[snip]

    James> |abacus3>lisp
    James> CMU Common Lisp 19a, running on abacus3
    James> With core: /home/amundson/opt/cmucl/19a/lib/cmucl/lib/lisp.core
    James> Dumped on: Wed, 2004-07-28 11:51:48-05:00 on lorien
    James> See <http://www.cons.org/cmucl/>; for support information.
    James> Loaded subsystems:
    James>     Python 1.1, target Intel x86
    James>     CLOS based on Gerd's PCL 2004/04/14 03:32:47
    James> * (loop for x in '(((RAT SIMP) 11 8))
    James>       when (and (numberp x) (minusp x))
    James>       maximize x)

    James> 0
    James> *  

    James> Clisp's answer for the same input:

    James> |abacus3>clisp

[snip]


    James> [1]> (loop for x in '(((RAT SIMP) 11 8))
    James>       when (and (numberp x) (minusp x))
    James>       maximize x)


Oops.  My apologies.  I'll fix this ASAP.

The loop is supposed to look through the list and return the maximum
of any negative numbers.

Ray

• Prev by Date: documentation categories, was: conventions for .texi files
• Next by Date: Testsuite failure in rtest14.mac - specint(t^(3/4)*%e^(-t^2/2/b)*%e^(-p*t),t);
• Previous by thread: Testsuite failure in rtest14.mac - specint(t^(3/4)*%e^(-t^2/2/b)*%e^(-p*t),t);
• Next by thread: Testsuite failure in rtest14.mac - specint(t^(3/4)*%e^(-t^2/2/b)*%e^(-p*t),t);
• Index(es):
  • Date
  • Thread