← Back to branch summary

~ubuntu-branches/ubuntu/karmic/maxima/karmic

« back to all changes in this revision

Viewing changes to share/affine/compat.lisp

  • Committer: Bazaar Package Importer
  • Author(s): Camm Maguire
  • Date: 2004-11-13 18:39:14 UTC
  • mto: (2.1.2 hoary) (3.2.1 sid) (1.1.5 upstream)
  • mto: This revision was merged to the branch mainline in revision 3.
  • Revision ID: james.westby@ubuntu.com-20041113183914-ttig0evwuatnqosl
Tags: upstream-5.9.1
Import upstream version 5.9.1

Show diffs side-by-side

added added

removed removed

Lines of Context:
share/affine/compat.lisp
 
1
(in-package "MAXIMA")
 
2
 
 
3
(setf (symbol-function 'ferror) (symbol-function 'merror))
 
4
(setf (symbol-function 'zl-listp) (symbol-function 'listp))
 
5
 
 
6
 
 
7
;; (format t "~%The functions ~/maxima::tilde-q-fsh/ are inverses"
 
8
;;      (st-rat #$[x+1,1/(x+1)]$))
 
9
;; should print: The functions x+1 and 1/(x+1) are inverses
 
10
 
 
11
;; See the last part of polyb for the definition of FSH.
 
12
 
 
13
(defun tilde-q-fsh (stream arg colonp at-p) ;atp is special...
 
14
  (declare (ignore colonp at-p))
 
15
  (fsh arg stream))
 
16
 
 
17
;;; compat.lisp ends here