From: Wolfgang J. <wje...@us...> - 2005-03-20 03:46:19
|
Update of /cvsroot/maxima/maxima/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv3713 Modified Files: limit.lisp Log Message: branch1: Replace sloop specific LOOP-RETURN. Example where this would cause an error: limit(sqrt(1+1/x)-sqrt(1/x),x,0); Index: limit.lisp =================================================================== RCS file: /cvsroot/maxima/maxima/src/limit.lisp,v retrieving revision 1.12 retrieving revision 1.13 diff -u -d -r1.12 -r1.13 --- limit.lisp 25 Nov 2004 02:36:02 -0000 1.12 +++ limit.lisp 20 Mar 2005 03:46:09 -0000 1.13 @@ -1834,7 +1834,7 @@ (t ;(APPLY 'OR (MAPCAR #'(LAMBDA (J) (BRANCH1 J VAL)) (CDR EXP))) (loop for v on (cdr exp) when (branch1 (car v) val) - do (loop-return v)) + do (return v)) ;(zl-SOME #'(lambda (j) (branch1 j val)) (the list (cdr exp))) ))) |