share/affine/compat.lisp

   1 (in-package :maxima)
   2
   3 ;; (format t "~%The functions ~/maxima::tilde-q-fsh/ are inverses"
   4 ;;      (st-rat #$[x+1,1/(x+1)]$))
   5 ;; should print: The functions x+1 and 1/(x+1) are inverses
   6
   7 ;; See the last part of polyb for the definition of FSH.
   8
   9 (defun tilde-q-fsh (stream arg colonp at-p) ;atp is special...
  10   (declare (ignore colonp at-p))
  11   (fsh arg stream))
  12