[Maxima-commits] CVS: maxima/src ifactor.lisp,1.12,1.13

[Andrej V. <an...@us...>]

Update of /cvsroot/maxima/maxima/src
In directory sc8-pr-cvs16.sourceforge.net:/tmp/cvs-serv532

Modified Files:
	ifactor.lisp 
Log Message:
Fix for ifactors(1).


Index: ifactor.lisp
===================================================================
RCS file: /cvsroot/maxima/maxima/src/ifactor.lisp,v
retrieving revision 1.12
retrieving revision 1.13
diff -u -d -r1.12 -r1.13
--- ifactor.lisp	12 Jun 2008 09:41:00 -0000	1.12
+++ ifactor.lisp	13 Sep 2008 17:54:38 -0000	1.13
@@ -202,6 +202,8 @@
 (defun get-small-factors (n)
   (let (factors)
     ;; first divide off the even part
+    (when (= n 1)
+      (return-from get-small-factors '(1 ())))
     (when (> 4 n)
       (push `(,n 1) factors)
       (when $ifactor_verbose (format t "small cofactor: ~A~%" n))