;ELC ;;; compiled by amu@mit.edu on Wed Dec 18 01:19:01 1996 ;;; from file /afs/sipb.mit.edu/contrib/emacs/packages/calc-2.02e/calc-macs.el ;;; emacs version 19.30.1. ;;; bytecomp version FSF 2.10 ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`calc-macs.el' was compiled for Emacs 19.29 or later")) (provide (quote calc-macs)) (defalias 'calc-need-macros #[nil "À‡" [nil] 1]) (defalias 'calc-record-compilation-date-macro '(macro . #[nil "ÀÁ ÃÄ QE‡" [setq calc-installed-date current-time-string " by " user-full-name] 5])) (defalias 'calc-wrapper '(macro . #[(&rest body) "ÀÁÂÃÄD \"DD‡" [calc-do function append lambda nil body] 5])) (defalias 'calc-slow-wrapper '(macro . #[(&rest body) "ÀÁÂÃÄD \"D`E‡" [calc-do function append lambda nil body] 5])) (defalias 'math-showing-full-precision '(macro . #[(body) "ÀÁ\nE‡" [let ((calc-float-format calc-full-float-format)) body] 3])) (defalias 'math-with-extra-prec '(macro . #[(delta &rest body) "ÀÁÂÃÂ\fEDC BBD‡" [math-normalize let calc-internal-prec + delta body] 6])) (defalias 'Math-zerop '(macro . #[(a) "ÀÁ\nDÃÄÅÆ\nDÇBBDÀÈÆ\nDÉBBÈÊË\nEÌBBÍ\nDFEÈ\nÎBBF‡" [if consp a and not memq car ((quote (bigpos bigneg))) eq ((quote float)) nth 1 (0) math-zerop (0)] 10])) (defalias 'Math-integer-negp '(macro . #[(a) "ÀÁ\nDÃÄ\nDÅBBÆ\nÇBBF‡" [if consp a eq car ((quote bigneg)) < (0)] 6])) (defalias 'Math-integer-posp '(macro . #[(a) "ÀÁ\nDÃÄ\nDÅBBÆ\nÇBBF‡" [if consp a eq car ((quote bigpos)) > (0)] 6])) (defalias 'Math-negp '(macro . #[(a) "ÀÁ\nDÃÄÅ\nDÆBBÇÈÄÅ\nDÉBBDÀÊÅ\nDËBBÌÍÎ\nEDÏ\nDFEEÐ\nÑBBF‡" [if consp a or eq car ((quote bigneg)) and not ((quote bigpos)) memq ((quote (frac float))) Math-integer-negp nth 1 math-negp < (0)] 12])) (defalias 'Math-looks-negp '(macro . #[(a) "ÀÁ\nDÃÄ\nDÀÅÆ\nDÇBBÃÈÆ\nDÉBBÀÊËÌ\nEDÊËÍ\nEDEEEEE‡" [or Math-negp a and consp eq car ((quote neg)) memq ((quote (* /))) math-looks-negp nth 1 2] 14])) (defalias 'Math-posp '(macro . #[(a) "ÀÁ\nDÃÄÅ\nDÆBBÇÈÄÅ\nDÉBBDÀÊÅ\nDËBBÌÍÎ\nEDÏ\nDFEEÐ\nÑBBF‡" [if consp a or eq car ((quote bigpos)) and not ((quote bigneg)) memq ((quote (frac float))) Math-integer-posp nth 1 math-posp > (0)] 12])) (defalias 'Math-integerp '(macro . #[(a) "ÀÁ DDÄÅ DÆBBE‡" [or not consp a memq car ((quote (bigpos bigneg)))] 5])) (defalias 'Math-natnump '(macro . #[(a) "ÀÁ\nDÃÄ\nDÅBBÆ\nÇBBF‡" [if consp a eq car ((quote bigpos)) >= (0)] 6])) (defalias 'Math-ratp '(macro . #[(a) "ÀÁ DDÄÅ DÆBBE‡" [or not consp a memq car ((quote (bigpos bigneg frac)))] 5])) (defalias 'Math-realp '(macro . #[(a) "ÀÁ DDÄÅ DÆBBE‡" [or not consp a memq car ((quote (bigpos bigneg frac float)))] 5])) (defalias 'Math-anglep '(macro . #[(a) "ÀÁ DDÄÅ DÆBBE‡" [or not consp a memq car ((quote (bigpos bigneg frac float hms)))] 5])) (defalias 'Math-numberp '(macro . #[(a) "ÀÁ DDÄÅ DÆBBE‡" [or not consp a memq car ((quote (bigpos bigneg frac float cplx polar)))] 5])) (defalias 'Math-scalarp '(macro . #[(a) "ÀÁ DDÄÅ DÆBBE‡" [or not consp a memq car ((quote (bigpos bigneg frac float cplx polar hms)))] 5])) (defalias 'Math-vectorp '(macro . #[(a) "ÀÁ\nDÃÄ\nDÅBBE‡" [and consp a eq car ((quote vec))] 5])) (defalias 'Math-messy-integerp '(macro . #[(a) "ÀÁ\nDÃÄ\nDÅBBÆÇÈ\nEÉBBF‡" [and consp a eq car ((quote float)) >= nth 2 (0)] 7])) (defalias 'Math-objectp '(macro . #[(a) "ÀÁ DDÄÅ DÆBBE‡" [or not consp a memq car ((quote (bigpos bigneg frac float cplx polar hms date sdev intv mod)))] 5])) (defalias 'Math-objvecp '(macro . #[(a) "ÀÁ DDÄÅ DÆBBE‡" [or not consp a memq car ((quote (bigpos bigneg frac float cplx polar hms date sdev intv mod vec)))] 5])) (defalias 'Math-integer-neg '(macro . #[(a) "ÀÁ\nDÀÃÄ\nDÅBBÆÇÈ\nDEÆÉÈ\nDEFÊ\nDF‡" [if consp a eq car ((quote bigpos)) cons (quote bigneg) cdr (quote bigpos) -] 9])) (defalias 'Math-equal '(macro . #[(a b) "ÀÁ\n EÄBB‡" [= math-compare a b (0)] 4])) (defalias 'Math-lessp '(macro . #[(a b) "ÀÁ\n EÄBB‡" [= math-compare a b (-1)] 4])) (defalias 'math-working '(macro . #[(msg arg) "ÀÁ \fEE‡" [if (eq calc-display-working-message (quote lots)) math-do-working msg arg] 5])) (defalias 'calc-with-default-simplification '(macro . #[(body) "ÀÁ\nE‡" [let ((calc-simplify-mode (and (not (memq calc-simplify-mode (quote (none num)))) calc-simplify-mode))) body] 3])) (defalias 'Math-primp '(macro . #[(a) "ÀÁ DDÄÅ DÆBBE‡" [or not consp a memq car ((quote (bigpos bigneg frac float cplx polar hms date mod var)))] 5])) (defalias 'calc-with-trail-buffer '(macro . #[(&rest body) "ÀÁÂÃÄ \"ÆBBE‡" [let ((save-buf (current-buffer)) (calc-command-flags nil)) unwind-protect append (progn (set-buffer (calc-trail-display t)) (goto-char calc-trail-pointer)) body ((set-buffer save-buf))] 6])) (defalias 'Math-num-integerp '(macro . #[(a) "ÀÁ DDÄÅ DÆBBÇÈÅ DÉBBÊËÌ EÍBBEF‡" [or not consp a memq car ((quote (bigpos bigneg))) and eq ((quote float)) >= nth 2 (0)] 9])) (defalias 'Math-bignum-test '(macro . #[(a) "ÀÁ\nD\nÃ\nDF‡" [if consp a math-bignum] 5])) (defalias 'Math-equal-int '(macro . #[(a b) "ÀÁ\n EÄÅ\nDÁÆ\nDÇBBÁÈÉ\nE EÊÈË\nEÌBB¯E‡" [or eq a b and consp car ((quote float)) nth 1 = 2 (0)] 10])) (defalias 'Math-natnum-lessp '(macro . #[(a b) "ÀÁ\nDÃÁ\fDÅÆÇ\nDÇ\fDEÈBBEÉÁ\fDÊ\n\fEEF‡" [if consp a and b = math-compare-bignum cdr (-1) or <] 9])) (defalias 'math-format-radix-digit '(macro . #[(a) "ÀÁ\nE‡" [aref math-radix-digits a] 3]))