| Current Path : /usr/share/emacs/24.3/lisp/calc/ |
Linux gator3171.hostgator.com 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 |
| Current File : //usr/share/emacs/24.3/lisp/calc/calc-macs.elc |
;ELC ;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:10:44 2024 ;;; from file /builddir/build/BUILD/emacs-24.3/lisp/calc/calc-macs.el ;;; in Emacs version 24.3.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. ;;; This file does not contain utf-8 non-ASCII characters, ;;; and so can be loaded in Emacs versions earlier than 23. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (defalias 'calc-wrapper '(macro . #[(&rest body) "\301\302\303\304BBDD\207" [body calc-do function lambda nil] 5])) (defalias 'calc-slow-wrapper '(macro . #[(&rest body) "\301\302\303\304BBD\305BB\207" [body calc-do function lambda nil ((point))] 5])) (defalias 'math-showing-full-precision '(macro . #[(form) "\301\302E\207" [form let ((calc-float-format calc-full-float-format))] 3])) (defalias 'math-with-extra-prec '(macro . #[(delta &rest body) "\302\303\304\305\304EDC BBD\207" [delta body math-normalize let calc-internal-prec +] 6])) (defalias 'math-working '(macro . #[(msg arg) "\302\303\304 EE\207" [msg arg if (eq calc-display-working-message 'lots) math-do-working] 5])) (defalias 'calc-with-default-simplification '(macro . #[(&rest body) "\301\302BB\207" [body let ((calc-simplify-mode (and (not (memq calc-simplify-mode '(none num))) calc-simplify-mode)))] 3])) (defalias 'calc-with-trail-buffer '(macro . #[(&rest body) "\301\302\303\304\305\306BBEE\207" [body let ((save-buf (current-buffer)) (calc-command-flags nil)) with-current-buffer (calc-trail-display t) progn (goto-char calc-trail-pointer)] 7])) (defalias 'Math-zerop #[(a) ":\203 @\301>?\205! @\302=\203 A@\303=\207\304!\207\303=\207" [a (bigpos bigneg) float 0 math-zerop] 2]) (put 'Math-zerop 'byte-optimizer 'byte-compile-inline-expand) (defalias 'Math-integer-negp #[(a) ":\203\n @\301=\207\302W\207" [a bigneg 0] 2]) (put 'Math-integer-negp 'byte-optimizer 'byte-compile-inline-expand) (defalias 'Math-integer-posp #[(a) ":\203\n @\301=\207\302V\207" [a bigpos 0] 2]) (put 'Math-integer-posp 'byte-optimizer 'byte-compile-inline-expand) (defalias 'Math-negp #[(a) ":\2034 @\301=\2067 @\302=?\2053 @\303>\2030 A@\211:\203+ @\301=\202. \304W)\207\305!\207\304W\207" [a bigneg bigpos (frac float) 0 math-negp] 3]) (put 'Math-negp 'byte-optimizer 'byte-compile-inline-expand) (defalias 'Math-looks-negp #[(a) "\211:\203: @\301=\206= @\302=?\205= @\303>\2034 A@\211:\203- @\301=\2020 \304W)\202= \305!\202= \304W)\206a :\205a @\306=\206a @\307>\205a \310A@!\206a \310\3118!\207" [a bigneg bigpos (frac float) 0 math-negp neg (* /) math-looks-negp 2] 4]) (put 'Math-looks-negp 'byte-optimizer 'byte-compile-inline-expand) (defalias 'Math-posp #[(a) ":\2034 @\301=\2067 @\302=?\2053 @\303>\2030 A@\211:\203+ @\301=\202. \304V)\207\305!\207\304V\207" [a bigpos bigneg (frac float) 0 math-posp] 3]) (put 'Math-posp 'byte-optimizer 'byte-compile-inline-expand) (defalias 'Math-integerp #[(a) ":?\206\n @\301>\207" [a (bigpos bigneg)] 2]) (put 'Math-integerp 'byte-optimizer 'byte-compile-inline-expand) (defalias 'Math-natnump #[(a) ":\203\n @\301=\207\302Y\207" [a bigpos 0] 2]) (put 'Math-natnump 'byte-optimizer 'byte-compile-inline-expand) (defalias 'Math-ratp #[(a) ":?\206\n @\301>\207" [a (bigpos bigneg frac)] 2]) (put 'Math-ratp 'byte-optimizer 'byte-compile-inline-expand) (defalias 'Math-realp #[(a) ":?\206\n @\301>\207" [a (bigpos bigneg frac float)] 2]) (put 'Math-realp 'byte-optimizer 'byte-compile-inline-expand) (defalias 'Math-anglep #[(a) ":?\206\n @\301>\207" [a (bigpos bigneg frac float hms)] 2]) (put 'Math-anglep 'byte-optimizer 'byte-compile-inline-expand) (defalias 'Math-numberp #[(a) ":?\206\n @\301>\207" [a (bigpos bigneg frac float cplx polar)] 2]) (put 'Math-numberp 'byte-optimizer 'byte-compile-inline-expand) (defalias 'Math-scalarp #[(a) ":?\206\n @\301>\207" [a (bigpos bigneg frac float cplx polar hms)] 2]) (put 'Math-scalarp 'byte-optimizer 'byte-compile-inline-expand) (defalias 'Math-vectorp #[(a) ":\205 @\301=\207" [a vec] 2]) (put 'Math-vectorp 'byte-optimizer 'byte-compile-inline-expand) (defalias 'Math-messy-integerp #[(a) ":\205 @\301=\205 \3028\303Y\207" [a float 2 0] 2]) (put 'Math-messy-integerp 'byte-optimizer 'byte-compile-inline-expand) (defalias 'Math-objectp #[(a) ":?\206\n @\301>\207" [a (bigpos bigneg frac float cplx polar hms date sdev intv mod)] 2]) (put 'Math-objectp 'byte-optimizer 'byte-compile-inline-expand) (defalias 'Math-objvecp #[(a) ":?\206\n @\301>\207" [a (bigpos bigneg frac float cplx polar hms date sdev intv mod vec)] 2]) (put 'Math-objvecp 'byte-optimizer 'byte-compile-inline-expand) (defalias 'Math-integer-neg #[(a) ":\203 @\301=\203 \302AB\207\301AB\207[\207" [a bigpos bigneg] 2]) (put 'Math-integer-neg 'byte-optimizer 'byte-compile-inline-expand) (defalias 'Math-equal #[(a b) "\302 \"\303U\207" [a b math-compare 0] 3]) (put 'Math-equal 'byte-optimizer 'byte-compile-inline-expand) (defalias 'Math-lessp #[(a b) "\302 \"\303U\207" [a b math-compare -1] 3]) (put 'Math-lessp 'byte-optimizer 'byte-compile-inline-expand) (defalias 'Math-primp #[(a) ":?\206\n @\301>\207" [a (bigpos bigneg frac float cplx polar hms date mod var)] 2]) (put 'Math-primp 'byte-optimizer 'byte-compile-inline-expand) (defalias 'Math-num-integerp #[(a) ":?\206 @\301>\206 @\302=\205 \3038\304Y\207" [a (bigpos bigneg) float 2 0] 2]) (put 'Math-num-integerp 'byte-optimizer 'byte-compile-inline-expand) (defalias 'Math-bignum-test #[(a) ":\203 \207\301!\207" [a math-bignum] 2]) (put 'Math-bignum-test 'byte-optimizer 'byte-compile-inline-expand) (defalias 'Math-equal-int #[(a b) " =\206 :\205 @\302=\205 A@ =\205 \3038\304U\207" [a b float 2 0] 2]) (put 'Math-equal-int 'byte-optimizer 'byte-compile-inline-expand) (defalias 'Math-natnum-lessp #[(a b) ":\203 :\205 \302A A\"\303U\207 :\206 W\207" [a b math-compare-bignum -1] 3]) (byte-code "\300\301\302\303#\210\304\305!\207" [put Math-natnum-lessp byte-optimizer byte-compile-inline-expand provide calc-macs] 4)