From: Raymond T. <rt...@us...> - 2002-04-26 13:08:05
|
Update of /cvsroot/maxima/maxima/src/numerical In directory usw-pr-cvs1:/tmp/cvs-serv10303/src/numerical Added Files: f2cl-lib.lisp Log Message: Initial revision. --- NEW FILE: f2cl-lib.lisp --- ; macros.l - all the basic macros ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;Copyright (c) University of Waikato;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;Hamilton, New Zeland 1992-95 - all rights reserved;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (in-package :f2cl-lib) ; macros: ; rexpt ; fexport ; fproclaim ; fuse-package ; fin-package ; map-defvar ; do1 ; do! ; double-cdr ; putproperty ; defprop [...1312 lines suppressed...] ;;; Revision 1.21 2000/07/19 13:54:27 rtoy ;;; o Add the types ARRAY-DOUBLE-FLOAT, ARRAY-SINGLE-FLOAT, and ;;; ARRAY-INTEGER4. ;;; o All arrays are 1-D now to support slicing of Fortran arrays ;;; correctly. ;;; o All arrays are in column-major order just like Fortran (and the ;;; opposite of Lisp). This is to support slicing of arrays. Modified ;;; FREF to support this by taking an extra arg for the dimensions of ;;; the array. ;;; o Added macro ARRAY-SLICE to slice the array properly. ;;; o Optimized routine DMIN1 a bit. (Need to do that for more routines.) ;;; ;;; Revision 1.20 2000/07/14 15:50:59 rtoy ;;; Get rid of *dummy_var*. It's not used anymore. ;;; ;;; Revision 1.19 2000/07/13 16:55:34 rtoy ;;; To satisfy the Copyright statement, we have placed the RCS logs in ;;; each source file in f2cl. (Hope this satisfies the copyright.) ;;; ;;;----------------------------------------------------------------------------- |