~ubuntu-branches/debian/squeeze/maxima/squeeze

« back to all changes in this revision

Viewing changes to share/numeric/expense.lisp

  • Committer: Bazaar Package Importer
  • Author(s): Camm Maguire
  • Date: 2006-10-18 14:52:42 UTC
  • mto: (1.1.5 upstream)
  • mto: This revision was merged to the branch mainline in revision 4.
  • Revision ID: james.westby@ubuntu.com-20061018145242-vzyrm5hmxr8kiosf
ImportĀ upstreamĀ versionĀ 5.10.0

Show diffs side-by-side

added added

removed removed

Lines of Context:
66
66
         "A MACSYMA list of currently known CRAY-1 vector merge operations."
67
67
         modified-commands '($block_optimize $expense))
68
68
 
69
 
(declare (fixnum ($expense notype) (multiplies-in-nth-power notype)))
 
69
; (declare (fixnum ($expense notype) (multiplies-in-nth-power notype)))
70
70
 
71
71
(defun multiplies-in-nth-power (nth)
72
72
   (cond ((< nth 2) 0)