From: Wolfgang J. <wje...@us...> - 2003-03-27 01:19:01
|
Update of /cvsroot/maxima/maxima/share/affine In directory sc8-pr-cvs1:/tmp/cvs-serv305 Added Files: compat.lisp Log Message: Contains various new definitions. --- NEW FILE: compat.lisp --- (in-package "MAXIMA") (setf (symbol-function 'ferror) (symbol-function 'merror)) (setf (symbol-function 'zl-listp) (symbol-function 'listp)) ;; (format t "~%The functions ~/maxima::tilde-q-fsh/ are inverses" ;; (st-rat #$[x+1,1/(x+1)]$)) ;; should print: The functions x+1 and 1/(x+1) are inverses ;; See the last part of polyb for the definition of FSH. (defun tilde-q-fsh (stream arg colonp at-p) ;atp is special... (declare (ignore colonp at-p)) (fsh arg stream)) ;;; compat.lisp ends here |