Red Hat Linux
Click URL instructions:
Right-click on ad, choose "Copy Link", then paste here →
(This may not be possible with some types of ads)
You seem to have CSS turned off.
Please don't fill out this field.
Briefly describe the problem (required):
Please provide the ad click URL, if possible:
Update of /cvsroot/maxima/maxima/src
In directory sc8-pr-cvs7.sourceforge.net:/tmp/cvs-serv8826/src
Revert definition of INDEX* to previous version (using recursion instead of loop).
Loop version causes GCL 2.6.7/Linux to emit an error message for some unknown reason.
RCS file: /cvsroot/maxima/maxima/src/factor.lisp,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -d -r1.10 -r1.11
--- factor.lisp 24 Feb 2007 18:51:56 -0000 1.10
+++ factor.lisp 1 Mar 2007 05:49:22 -0000 1.11
@@ -461,11 +461,9 @@
(intersect (cdr x) y))))
;; Like APL IOTA function.
-(defun index* (k)
- (if (< k 2)
- (list 1)
- (loop for i from k downto 1 collect i)))
+(defun index* (k)
+ (declare (fixnum k))
+ (if (< k 2) (list 1) (cons k (index* (f1- k)))))
(defun klim (u p1)
Sign up for the SourceForge newsletter: