← Back to branch summary

~ubuntu-branches/debian/squeeze/maxima/squeeze

« back to all changes in this revision

Viewing changes to share/simplification/scifac.lisp

  • Committer: Bazaar Package Importer
  • Author(s): Camm Maguire
  • Date: 2010-04-30 13:30:33 UTC
  • mto: This revision was merged to the branch mainline in revision 12.
  • Revision ID: james.westby@ubuntu.com-20100430133033-wtewap0zdnmsix1y
Tags: upstream-5.21.1
Import upstream version 5.21.1

Show diffs side-by-side

added added

removed removed

Lines of Context:
share/simplification/scifac.lisp
17
17
         (setq minpow (cond (nstate (and (integerp expon) (min minpow expon)))
18
18
                            (number (and ($numberp expon)
19
19
                                         (integerp (sub minpow expon))
20
 
                                         ($min minpow expon)))
 
20
                                         (mfuncall '$min minpow expon)))
21
21
                            (t
22
22
                             (let ((powdif (sub minpow expon)))
23
23
                               (cond ((integerp powdif)