From: Andreas E. <ar...@us...> - 2009-01-31 09:58:25
|
Update of /cvsroot/maxima/maxima/src In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv17173/src Modified Files: linnew.lisp Log Message: replaced undefined functions array and zl-member by the appropriate version; changed store to setf where possoble; removed empty or vacuous definitions; replaced *array by make-array; changed set to setf of the symbol-value for better readability; trplaced maclisp like varargs mechanism with &optional and &rest; made threshold into a specialö variable; did generel cleanup for better readability; i fear there are still a lot of gotchas in the code!! Index: linnew.lisp =================================================================== RCS file: /cvsroot/maxima/maxima/src/linnew.lisp,v retrieving revision 1.6 retrieving revision 1.7 diff -u -d -r1.6 -r1.7 --- linnew.lisp 29 Jan 2009 06:19:34 -0000 1.6 +++ linnew.lisp 31 Jan 2009 09:58:12 -0000 1.7 @@ -29,39 +29,34 @@ ;; cre form. It now seems tminverse and tmlinsolve, now seem to work. --wfs. ;;these are arrays -(declare-top(special *tmarrays* *a2* *b* *aa* - *row* *col* *rowinv* *colinv* *indx* )) +(declare-top (special *tmarrays* *a2* *b* *aa* *row* *col* *rowinv* *colinv* *indx*)) -(declare-top(special n nx ix)) +(declare-top (special n nx ix)) -(declare-top(special $linenum $dispflag $linechar $wise $fool)) [...1288 lines suppressed...] - (check-arg array-symbol (or (symbolp array-symbol) (arrayp array-symbol)) - "a symbol or an array") - ;; All references to *rearray now are to symbols with the - ;; value cell being used for the array. - (cond ((null dims)) - ((null (cdr dims)) - (let ((old-array (if (symbolp array-symbol) - (symbol-value array-symbol) array-symbol)) - (new-array (make-array (car dims))) - (min-array-length)) - (setq min-array-length (min (array-dimension old-array 0) - (array-dimension new-array 0))) - (do ((i 0 (1+ i))) - ((= i min-array-length)) - (setf (aref new-array i) (aref old-array i))) - (when (symbolp array-symbol) - (setf (symbol-value array-symbol) new-array)) - new-array)) - (t (maxima-error "Can't handle *rearray with more than one dimension")))) +(declare-top (unspecial n vlist nx ix)) |