power::series() speedup from Chris Dams

diff --git a/ginac/pseries.cpp b/ginac/pseries.cpp
index bcad8c1960df67a445832d0eb9fcbd24a4c83857..a8b820d46d073c28b81777de987a6cdf7cc4eb2e 100644 (file)
--- a/ginac/pseries.cpp
+++ b/ginac/pseries.cpp
@@ -953,7 +953,7 @@ ex power::series(const relational & r, int order, unsigned options) const
        }
 
        // Is the expression of type something^(-int)?
-       if (!must_expand_basis && !exponent.info(info_flags::negint))
+       if (!must_expand_basis && !exponent.info(info_flags::negint) && !is_a<add>(basis))
                return basic::series(r, order, options);
 
        // Is the expression of type 0^something?