%PDF- %PDF-
Mini Shell

Mini Shell

Direktori : /usr/local/share/emacs/27.2/lisp/calc/
Upload File :
Create Path :
Current File : //usr/local/share/emacs/27.2/lisp/calc/calc-macs.elc

;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


#@19 

(fn &rest BODY)
(defalias 'calc-wrapper '(macro . #[128 "\300\301\302\303BBDD\207" [calc-do function lambda nil] 6 (#$ . 408)]))
#@19 

(fn &rest BODY)
(defalias 'calc-slow-wrapper '(macro . #[128 "\300\301\302\303BBD\304BB\207" [calc-do function lambda nil ((point))] 6 (#$ . 546)]))
#@13 

(fn FORM)
(defalias 'math-showing-full-precision '(macro . #[257 "\300\301E\207" [let ((calc-float-format calc-full-float-format))] 4 (#$ . 704)]))
#@25 

(fn DELTA &rest BODY)
(defalias 'math-with-extra-prec '(macro . #[385 "\300\301\302\303\302EDCBBD\207" [math-normalize let calc-internal-prec +] 8 (#$ . 861)]))
#@16 

(fn MSG ARG)
(defalias 'math-working '(macro . #[514 "\300\301\302EE\207" [if (eq calc-display-working-message 'lots) math-do-working] 7 (#$ . 1033)]))
#@19 

(fn &rest BODY)
(defalias 'calc-with-default-simplification '(macro . #[128 "\300\301BB\207" [let ((calc-simplify-mode (and (not (memq calc-simplify-mode '(none num))) calc-simplify-mode)))] 4 (#$ . 1195)]))
#@19 

(fn &rest BODY)
(defalias 'calc-with-trail-buffer '(macro . #[128 "\300\301\302\303\304\305BBEE\207" [let ((save-buf (current-buffer)) (calc-command-flags nil)) with-current-buffer (calc-trail-display t) progn (goto-char calc-trail-pointer)] 8 (#$ . 1412)]))
#@10 

(fn A)
(defalias 'Math-zerop #[257 "\211:\203\211@\300=\203\211A@\301=\207\302!\207\211\301=\207" [float 0 math-zerop] 3 (#$ . 1681)])
(put 'Math-zerop 'byte-optimizer 'byte-compile-inline-expand)
#@10 

(fn A)
(defalias 'Math-integer-negp #[257 "\211\250\205\211\300W\207" [0] 3 (#$ . 1891)])
(put 'Math-integer-negp 'byte-optimizer 'byte-compile-inline-expand)
#@10 

(fn A)
(defalias 'Math-integer-posp #[257 "\211\250\205\211\300V\207" [0] 3 (#$ . 2060)])
(put 'Math-integer-posp 'byte-optimizer 'byte-compile-inline-expand)
#@10 

(fn A)
(defalias 'Math-negp #[257 "\211:\203\211@\300>\203\211A@\211\250\205\211\301W\207\302!\207\211\301W\207" [(frac float) 0 math-negp] 4 (#$ . 2229)])
(put 'Math-negp 'byte-optimizer 'byte-compile-inline-expand)
#@10 

(fn A)
(defalias 'Math-looks-negp #[257 "\211\211:\203%\211@\300>\203\211A@\211\250\205\211\301W\266\202\202*\302!\262\202*\211\301W\262\206M\211:\205M\211@\303=\206M\211@\304>\205M\305A@!\206M\305\3068!\207" [(frac float) 0 math-negp neg (* /) math-looks-negp 2] 5 (#$ . 2461)])
(put 'Math-looks-negp 'byte-optimizer 'byte-compile-inline-expand)
#@10 

(fn A)
(defalias 'Math-posp #[257 "\211:\203\211@\300>\203\211A@\211\250\205\211\301V\207\302!\207\211\301V\207" [(frac float) 0 math-posp] 4 (#$ . 2833)])
(byte-code "\300\301\302\303#\210\304\305\306\"\207" [put Math-posp byte-optimizer byte-compile-inline-expand defalias Math-integerp integerp] 4)
#@10 

(fn A)
(defalias 'Math-natnump #[257 "\211\250\205\211\300Y\207" [0] 3 (#$ . 3150)])
(put 'Math-natnump 'byte-optimizer 'byte-compile-inline-expand)
#@10 

(fn A)
(defalias 'Math-ratp #[257 "\211:?\206\n\211@\300=\207" [frac] 3 (#$ . 3309)])
(put 'Math-ratp 'byte-optimizer 'byte-compile-inline-expand)
#@10 

(fn A)
(defalias 'Math-realp #[257 "\211:?\206\n\211@\300>\207" [(frac float)] 3 (#$ . 3465)])
(put 'Math-realp 'byte-optimizer 'byte-compile-inline-expand)
#@10 

(fn A)
(defalias 'Math-anglep #[257 "\211:?\206\n\211@\300>\207" [(frac float hms)] 3 (#$ . 3631)])
(put 'Math-anglep 'byte-optimizer 'byte-compile-inline-expand)
#@10 

(fn A)
(defalias 'Math-numberp #[257 "\211:?\206\n\211@\300>\207" [(frac float cplx polar)] 3 (#$ . 3803)])
(put 'Math-numberp 'byte-optimizer 'byte-compile-inline-expand)
#@10 

(fn A)
(defalias 'Math-scalarp #[257 "\211:?\206\n\211@\300>\207" [(frac float cplx polar hms)] 3 (#$ . 3984)])
(put 'Math-scalarp 'byte-optimizer 'byte-compile-inline-expand)
#@10 

(fn A)
(defalias 'Math-vectorp #[257 "\211\242\300=\207" [vec] 3 (#$ . 4169)])
(put 'Math-vectorp 'byte-optimizer 'byte-compile-inline-expand)
#@10 

(fn A)
(defalias 'Math-messy-integerp #[257 "\211:\205\211@\300=\205\3018\302Y\207" [float 2 0] 3 (#$ . 4320)])
(put 'Math-messy-integerp 'byte-optimizer 'byte-compile-inline-expand)
#@10 

(fn A)
(defalias 'Math-objectp #[257 "\211:?\206\n\211@\300>\207" [(frac float cplx polar hms date sdev intv mod)] 3 (#$ . 4516)])
(put 'Math-objectp 'byte-optimizer 'byte-compile-inline-expand)
#@10 

(fn A)
(defalias 'Math-objvecp #[257 "\211:?\206\n\211@\300>\207" [(frac float cplx polar hms date sdev intv mod vec)] 3 (#$ . 4720)])
(put 'Math-objvecp 'byte-optimizer 'byte-compile-inline-expand)
#@10 

(fn A)
(defalias 'Math-integer-neg #[257 "\211[\207" [] 2 (#$ . 4928)])
(put 'Math-integer-neg 'byte-optimizer 'byte-compile-inline-expand)
#@12 

(fn A B)
(defalias 'Math-equal #[514 "\300\"\301U\207" [math-compare 0] 5 (#$ . 5076)])
(put 'Math-equal 'byte-optimizer 'byte-compile-inline-expand)
#@12 

(fn A B)
(defalias 'Math-lessp #[514 "\300\"\301U\207" [math-compare -1] 5 (#$ . 5236)])
(put 'Math-lessp 'byte-optimizer 'byte-compile-inline-expand)
#@10 

(fn A)
(defalias 'Math-primp #[257 "\211:?\206\n\211@\300>\207" [(frac float cplx polar hms date mod var)] 3 (#$ . 5397)])
(put 'Math-primp 'byte-optimizer 'byte-compile-inline-expand)
#@10 

(fn A)
(defalias 'Math-num-integerp #[257 "\211\250\206\211:\205\211@\300=\205\3018\302Y\207" [float 2 0] 3 (#$ . 5591)])
(put 'Math-num-integerp 'byte-optimizer 'byte-compile-inline-expand)
#@12 

(fn A B)
(defalias 'Math-equal-int #[514 "=\206:\205@\300=\205A@=\205\3018\302U\207" [float 2 0] 4 (#$ . 5797)])
(put 'Math-equal-int 'byte-optimizer 'byte-compile-inline-expand)
#@12 

(fn A B)
(defalias 'Math-natnum-lessp #[514 ":\203\211:\205\300AA\"\301U\207\211:\206W\207" [math-compare-bignum -1] 5 (#$ . 5999)])
(byte-code "\300\301\302\303#\210\304\305!\207" [put Math-natnum-lessp byte-optimizer byte-compile-inline-expand provide calc-macs] 4)

Zerion Mini Shell 1.0