From: Volker v. N. <va...@us...> - 2013-12-18 22:22:01
|
This is an automated email from the git hooks/post-receive script. It was generated because a ref change was pushed to the repository containing the project "Maxima CAS". The branch, master has been updated via 21186ec6ac9ba88d587857e2abb4673787ce6703 (commit) from 5ec024d284d4215eeaa3983f718cd4640d6cdc7f (commit) Those revisions listed above that are new to this repository have not appeared on any other notification email; so we list those revisions in full, below. - Log ----------------------------------------------------------------- commit 21186ec6ac9ba88d587857e2abb4673787ce6703 Author: Volker van Nek <vol...@gm...> Date: Wed Dec 18 23:21:21 2013 +0100 fix error in helper for zn-characteristic-factors diff --git a/src/numth.lisp b/src/numth.lisp index 650e900..6356f22 100644 --- a/src/numth.lisp +++ b/src/numth.lisp @@ -609,9 +609,8 @@ (let ((p (car pe)) (e (cadr pe)) qd) (cond ((= 2 p) - (setq qd (list '(2 1))) - (when (> e 2) - (setq qd (nconc qd (list `(2 ,(- e 2))))) )) + (when (> e 1) (setq qd (list '(2 1)))) + (when (> e 2) (setq qd (nconc qd (list `(2 ,(- e 2)))))) ) (t (setq qd (let (($intfaclim)) (get-factor-list (1- p)))) (when (> e 1) ----------------------------------------------------------------------- Summary of changes: src/numth.lisp | 5 ++--- 1 files changed, 2 insertions(+), 3 deletions(-) hooks/post-receive -- Maxima CAS |