Linux ns8.secondary29.go.th 2.6.32-754.28.1.el6.x86_64 #1 SMP Wed Mar 11 18:38:45 UTC 2020 x86_64
Apache/2.2.15 (CentOS)
: 122.154.134.11 | : 122.154.134.9
Cant Read [ /etc/named.conf ]
5.6.40
apache
www.github.com/MadExploits
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
CPANEL RESET
CREATE WP USER
README
+ Create Folder
+ Create File
/
usr /
share /
emacs /
23.1 /
lisp /
calc /
[ HOME SHELL ]
Name
Size
Permission
Action
README
7.89
KB
-rw-r--r--
README.prev
31.02
KB
-rw-r--r--
calc-aent.elc
26.85
KB
-rw-r--r--
calc-alg.elc
46.35
KB
-rw-r--r--
calc-arith.elc
81.62
KB
-rw-r--r--
calc-bin.elc
21.53
KB
-rw-r--r--
calc-comb.elc
30.12
KB
-rw-r--r--
calc-cplx.elc
8.5
KB
-rw-r--r--
calc-embed.elc
29.83
KB
-rw-r--r--
calc-ext.elc
108.83
KB
-rw-r--r--
calc-fin.elc
11.84
KB
-rw-r--r--
calc-forms.elc
48.05
KB
-rw-r--r--
calc-frac.elc
5.58
KB
-rw-r--r--
calc-funcs.elc
25.78
KB
-rw-r--r--
calc-graph.elc
35.09
KB
-rw-r--r--
calc-help.elc
19.55
KB
-rw-r--r--
calc-incom.elc
5.29
KB
-rw-r--r--
calc-keypd.elc
15.83
KB
-rw-r--r--
calc-lang.elc
57.72
KB
-rw-r--r--
calc-loaddefs.el
10.61
KB
-rw-r--r--
calc-macs.elc
6.09
KB
-rw-r--r--
calc-map.elc
29.56
KB
-rw-r--r--
calc-math.elc
60.12
KB
-rw-r--r--
calc-menu.elc
32.85
KB
-rw-r--r--
calc-misc.elc
20.54
KB
-rw-r--r--
calc-mode.elc
19.45
KB
-rw-r--r--
calc-mtx.elc
6.77
KB
-rw-r--r--
calc-nlfit.elc
13.59
KB
-rw-r--r--
calc-poly.elc
24.53
KB
-rw-r--r--
calc-prog.elc
51.27
KB
-rw-r--r--
calc-rewr.elc
40.01
KB
-rw-r--r--
calc-rules.elc
17.6
KB
-rw-r--r--
calc-sel.elc
19.83
KB
-rw-r--r--
calc-stat.elc
13.97
KB
-rw-r--r--
calc-store.elc
17.31
KB
-rw-r--r--
calc-stuff.elc
8.07
KB
-rw-r--r--
calc-trail.elc
4.67
KB
-rw-r--r--
calc-undo.elc
3.35
KB
-rw-r--r--
calc-units.elc
37.86
KB
-rw-r--r--
calc-vec.elc
37.25
KB
-rw-r--r--
calc-yank.elc
16.66
KB
-rw-r--r--
calc.elc
101.08
KB
-rw-r--r--
calcalg2.elc
80.01
KB
-rw-r--r--
calcalg3.elc
42.38
KB
-rw-r--r--
calccomp.elc
32.86
KB
-rw-r--r--
calcsel2.elc
6.04
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : calc-store.elc
;ELC ;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:02:39 2015 ;;; from file /builddir/build/BUILD/emacs-23.1/lisp/calc/calc-store.el ;;; in Emacs version 23.1.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`calc-store.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\301\302!\210\301\303!\210\304B\305\304!\204 \306\304\307\"\210\307\207" [current-load-list require calc-ext calc-macs calc-store-keep default-boundp set-default nil] 3) (defalias 'calc-store #[(&optional var) "\302\303 !)\207" [calc-store-keep var t calc-store-into] 2 nil nil]) (byte-code "\301B\302\301!\204 \303\301\304\"\210\304\207" [current-load-list calc-given-value-flag default-boundp set-default nil] 3) (defalias 'calc-store-into #[(&optional var) "\300\301!\207" [calc-do #[nil "\305\306\n\204 \307\310\311\"\n\2039 \n\312\236\211\203 A \2025 \313\n \206( \314\306!\315$ \316\317\fP\320\n!\"))\202r \321\314\306!!\211\205r \n\205r \313\n@@\n@A\nA?\205U \315\nA?\205\\ \306$ \316\317\fP\320\n@@!\"\210)\nA\211\204G \305*\207" [calc-given-value-flag calc-given-value var found msg nil 1 calc-read-var-name "Store: " t ((+ . calc-store-plus) (- . calc-store-minus) (* . calc-store-times) (/ . calc-store-div) (^ . calc-store-power) (| . calc-store-concat)) calc-store-value calc-top "" message "Stored to variable \"%s\"" calc-var-name calc-is-assignments] 6]] 2 nil nil]) (defalias 'calc-store-plus #[(&optional var) "\301\302\303#\207" [var calc-store-binary "+" +] 4 nil nil]) (defalias 'calc-store-minus #[(&optional var) "\301\302\303#\207" [var calc-store-binary "-" -] 4 nil nil]) (defalias 'calc-store-times #[(&optional var) "\301\302\303#\207" [var calc-store-binary "*" *] 4 nil nil]) (defalias 'calc-store-div #[(&optional var) "\301\302\303#\207" [var calc-store-binary "/" /] 4 nil nil]) (defalias 'calc-store-power #[(&optional var) "\301\302\303#\207" [var calc-store-binary "^" ^] 4 nil nil]) (defalias 'calc-store-concat #[(&optional var) "\301\302\303#\207" [var calc-store-binary "|" |] 4 nil nil]) (defalias 'calc-store-neg #[(n &optional var) "\302\303\304 [$\207" [var n calc-store-binary "n" /] 5 nil "p"]) (defalias 'calc-store-inv #[(n &optional var) "\302\303\304 [$\207" [var n calc-store-binary "&" ^] 5 nil "p"]) (defalias 'calc-store-incr #[(n &optional var) "\302\303\304 [$\207" [var n calc-store-binary "n" -] 5 nil "p"]) (defalias 'calc-store-decr #[(n &optional var) "\302\303\304 $\207" [var n calc-store-binary "n" -] 5 nil "p"]) (defalias 'calc-store-value #[(var value tag &optional pop) "\306 \203e \307 ! L\210\f\203 \204 \310\f!\210\311\312\313 !\nE!\210\2038 \314 \315 \316\317\320 !#\"\210) \321>\203O \n\242\322=\203O \316\323\320 !\"\202` \324>\203` \n\204` \316\325\320 !\"\326 !\210))\207" [msg var old value pop calc-store-keep "" calc-var-value calc-pop-stack calc-record-undo store symbol-name nil calc-record format ">%s%s" calc-var-name (var-e var-i var-pi var-phi var-gamma) special-const " (Note: Built-in definition of %s has been lost)" (var-inf var-uinf var-nan) " (Note: %s has built-in meanings which may interfere)" calc-refresh-evaltos tag calc-full-trail-vectors] 7]) (defalias 'calc-var-name #[(var) "9\203 \301!\302\303\"\203 \304\305O\207\207" [var symbol-name string-match "\\`var-." 4 nil] 3]) (defalias 'calc-store-binary #[(var tag func &optional val) "\300\301!\207" [calc-do #[nil "\306=\203\n \307\202 \206 \310\311! \204 \312\313\314\f\"! \205\215 \315 !\211 \242\316=\2035 \317\320\321 !\"\210 \204P \322>\203I \317\323\321 !\"\210\202P \317\324\321 !\"\210 ;\203Y \325 ! \242\317=\203g \317\326\327 8\"\210\330 \331\332 \203w \n E\202| \nE!\f ?\205\204 \311$\210\333\334\321 !\")*\207" [calc-simplify-mode val value var tag old none num calc-top 1 calc-read-var-name format "Store %s: " calc-var-value special-const error "\"%s\" is a special constant" calc-var-name (var-inf var-uinf var-nan) "\"%s\" is a special variable" "No such variable: \"%s\"" math-read-expr "Bad format in variable contents: %s" 2 calc-store-value calc-normalize calc-is-inverse message "Variable \"%s\" changed" func] 7]] 2]) #@41 Keymap for reading Calc variable names. (defvar calc-var-name-map nil (#$ . 4484)) (byte-code "\204 \302 !\303\304\305#\210\306\307\310\"\210\306\311\312\"\210\302\207" [calc-var-name-map minibuffer-local-completion-map copy-keymap define-key " " self-insert-command mapc #[(x) "\302\303 !\304#\207" [calc-var-name-map x define-key char-to-string calcVar-digit] 4] "0123456789" #[(x) "\302\303 !\304#\207" [calc-var-name-map x define-key char-to-string calcVar-oper] 4] "+-*/^|"] 4) #@37 History for reading variable names. (defvar calc-read-var-name-history nil (#$ . 4979)) (defalias 'calc-read-var-name #[(prompt &optional calc-store-opers) "\306\211\307\310\311\312\307\n\"\"\313\314 \315\306 \306\316%+P \317 \307\232?\205m \320\321 \"\203i \204; \322\323!\202m \324 \325\326\225O! \325 \327 \325\225\306O!\211\242\322=\203_ \322\330\3318\"\210\332! )\202m \324 !)\207" [calc-given-value calc-aborted-prefix obarray minibuffer-completion-confirm minibuffer-completion-predicate minibuffer-completion-table nil "var-" mapcar #[(x) "\301\302O\207" [x 4 nil] 3] all-completions #[(x) "\301\302\303P!!\207" [x boundp intern "var-"] 4] t read-from-minibuffer calc-read-var-name-history "" string-match "\\`\\([-a-zA-Z0-9]+\\) *:?=" error "Assignment is not allowed in this command" intern 0 1 math-read-expr "Bad format: %s" 2 math-evaluate-expr prompt calc-var-name-map var calc-given-value-flag svar] 8]) (defalias 'calcVar-digit #[nil "\301\302!\203 \303=\203 \304 \207\305c\210\306 \207\307\310!\207" [calc-store-opers calc-minibuffer-contains "\\'" 0 beep "q" self-insert-and-exit self-insert-command 1] 2 nil nil]) (defalias 'calcVar-oper #[nil "\301=\203 \302\303!\203 \304 \210\305 \207\306\307!\207" [calc-store-opers t calc-minibuffer-contains "\\'" erase-buffer self-insert-and-exit self-insert-command 1] 2 nil nil]) (defalias 'calc-store-map #[(&optional oper var) "\300\301!\207" [calc-do #[nil "\306\307\310 \n\233\"\311 \206 \312\313!\211 @ '(\204& \314\315\316\317 8\"!((\205\327 \320(!\211 )\242\321=\203@ \322\323\324(!\"\210)\204_ (\325>\203W \322\326\324(!\"\210\202_ \322\327\324(!\"\210*\330=\203j \331\202l *'\332V\205z \333'S\fT\" + *\334\335!\210\336\337!\210);\203\222 \340)!))\242\322=\203\242 \322\341\317)8\"\210\342 \203\261 \343+)C\"\202\270 \343)C+\"+\344(\345 A@+B!\317 8\f'S\\$\210\334\346\324(!\"+-\207" [sel-mode calc-stack-top calc-stack calc-dollar-values calc-dollar-used oper nil mapcar calc-get-stack-element 0 calc-get-operator "Store Mapping" calc-read-var-name format "Store Mapping %s: " 2 calc-var-value special-const error "\"%s\" is a special constant" calc-var-name (var-inf var-uinf var-nan) "\"%s\" is a special variable" "No such variable: \"%s\"" none num 1 calc-top-list message "Working..." calc-set-command-flag clear-message math-read-expr "Bad format in variable contents: %s" calc-is-inverse append calc-store-value calc-normalize "Variable \"%s\" changed" nargs var old calc-simplify-mode values] 7]] 2 nil nil]) (defalias 'calc-store-exchange #[(&optional var) "\300\301!\207" [calc-do #[nil "\305\306\305 \204 \307\310! \205W \311 !\211 \242\312=\203$ \313\314\315 !\"\210\f\204? \316>\2038 \313\317\315 !\"\210\202? \313\320\315 !\"\210\n\206F \321\306!\322 \305#\210\323 \324\315 !P\f#)+\207" [top calc-given-value-flag calc-given-value var value nil 1 calc-read-var-name "Exchange with: " calc-var-value special-const error "\"%s\" is a special constant" calc-var-name (var-inf var-uinf var-nan) "\"%s\" is a special variable" "No such variable: \"%s\"" calc-top calc-store-value calc-pop-push-record "<>"] 6]] 2 nil nil]) (defalias 'calc-unstore #[(&optional var) "\300\301!\207" [calc-do #[nil "\204 \301\302!\205C \303>\203 \304!\242\305=\203 \306\307\"\210\310!\2035 J\2035 \306\311\312!\"\210\202< \306\313\312!\"\210\314!\210\315!\207" [var calc-read-var-name "Unstore: " (var-e var-i var-pi var-phi var-gamma) calc-var-value special-const message "(Note: Built-in definition of %s has been lost)" boundp "Unstored variable \"%s\"" calc-var-name "Variable \"%s\" remains unstored" makunbound calc-refresh-evaltos] 4]] 2 nil nil]) (defalias 'calc-let #[(&optional var) "\300\301!\207" [calc-do #[nil "\306\307\306\211\f\204 \310\311!\203 \312\307!\202% \312\307!\312\313!\f\2030 \f BC\2023 \314 !\211\205q \315 T\316\317\f@@!P\320\321\f\" \322\216\f\211 \203l @@\323@A!L\210\324@@!\210A\211\204P \325\n!+#,\207" [calc-given-value calc-given-value-flag thing value var saved-val nil 1 calc-read-var-name "Let variable: " calc-top 2 calc-is-assignments calc-pop-push-record "=" calc-var-name mapcar #[(v) "\301@!\205\n @J\207" [v boundp] 2] ((byte-code "\203\" @\203 @@@L\210\202 \302 @@!\210A A\202 \303 \207" [saved-val var makunbound calc-handle-whys] 2)) calc-normalize calc-refresh-evaltos math-evaluate-expr vv] 7]] 2 nil nil]) (defalias 'calc-is-assignments #[(value) "\242\302>\203 A@\242\303=\205U \304A@8\3048BC\207\242\305=\205U \306A\211\203N @\242\307>\203N @A@\242\303=\203N \304@A@8\304@8B B\202$ ?\205T )\207" [value vv (calcFunc-eq calcFunc-assign) var 2 vec nil (calcFunc-eq calcFunc-assign)] 3]) (defalias 'calc-recall #[(&optional var) "\300\301!\207" [calc-do #[nil "\204 \303\304!\205F \305!\211\204 \306\307\310!\"\210 ;\203$ \311 ! \242\306=\2032 \306\312\313 8\"\210\314 !\315\316 \317\310!P\"\210)\320 !)\207" [var value calc-full-trail-vectors calc-read-var-name "Recall: " calc-var-value error "No such variable: \"%s\"" calc-var-name math-read-expr "Bad format in variable contents: %s" 2 calc-normalize nil calc-record "<" calc-push] 6]] 2 nil nil]) (defalias 'calc-store-quick #[nil "\301\302\303\304\"!!\207" [last-command-event calc-store intern format "var-q%c"] 5 nil nil]) (defalias 'calc-store-into-quick #[nil "\301\302\303\304\"!!\207" [last-command-event calc-store-into intern format "var-q%c"] 5 nil nil]) (defalias 'calc-recall-quick #[nil "\301\302\303\304\"!!\207" [last-command-event calc-recall intern format "var-q%c"] 5 nil nil]) (defalias 'calc-copy-special-constant #[(&optional sconst var) "\301\302\303!)\207" [sc ((#1="") ("e" special-const (math-e)) ("pi" special-const (math-pi)) ("i" special-const (math-imaginary 1)) ("phi" special-const (math-phi)) ("gamma" special-const (math-gamma-const))) calc-do #[nil "\204 \305\306 \307\310$\311\230?\2058 \312 \"A \204# \313\314\315\"! \2057 \316 \n\311# \317\320\fP\321 !#))\207" [sconst sc value var msg completing-read "Special constant: " nil t #1# assoc calc-read-var-name format "Copy special constant %s, to: " calc-store-value message "Special constant \"%s\" copied to \"%s\"" calc-var-name] 5]] 2 nil nil]) (defalias 'calc-copy-variable #[(&optional var1 var2) "\300\301!\207" [calc-do #[nil "\204 \304\305!\205? \306!\211\204 \307\310\311!\"\210\n\204( \304\312\313\311!\"!\n\205> \314\n \315#\316\317 P\311!\311\n!#))\207" [var1 value var2 msg calc-read-var-name "Copy variable: " calc-var-value error "No such variable: \"%s\"" calc-var-name format "Copy variable: %s, to: " calc-store-value "" message "Variable \"%s\" copied to \"%s\""] 6]] 2 nil nil]) (byte-code "\301B\302\301!\204 \303\301\304\"\210\304\207" [current-load-list calc-last-edited-variable default-boundp set-default nil] 3) (defalias 'calc-edit-variable #[(&optional var) "\300\301!\210\302 \207" [calc-do #[nil "\204 \303 \203 \304\305\306 !\"\202 \307!\204 \205M \310!\211\242\311=\203/ \312\313\"\210\314\315\316DD\317\320\306!\321Q#\210\n\205L \322\n\323 \"\324\261)\207" [var calc-last-edited-variable value calc-read-var-name format "Edit (default %s): " calc-var-name "Edit: " calc-var-value special-const error "%s is a special constant" calc-edit-mode calc-finish-stack-edit quote t "Editing variable `" "'. " math-format-nice-expr frame-width "\n"] 7] calc-show-edit-buffer] 2 nil nil]) (defalias 'calc-edit-Decls #[nil "\300\301!\207" [calc-edit-variable var-Decls] 2 nil nil]) (defalias 'calc-edit-EvalRules #[nil "\300\301!\207" [calc-edit-variable var-EvalRules] 2 nil nil]) (defalias 'calc-edit-FitRules #[nil "\300\301!\207" [calc-edit-variable var-FitRules] 2 nil nil]) (defalias 'calc-edit-GenCount #[nil "\300\301!\207" [calc-edit-variable var-GenCount] 2 nil nil]) (defalias 'calc-edit-Holidays #[nil "\300\301!\207" [calc-edit-variable var-Holidays] 2 nil nil]) (defalias 'calc-edit-IntegLimit #[nil "\300\301!\207" [calc-edit-variable var-IntegLimit] 2 nil nil]) (defalias 'calc-edit-LineStyles #[nil "\300\301!\207" [calc-edit-variable var-LineStyles] 2 nil nil]) (defalias 'calc-edit-PointStyles #[nil "\300\301!\207" [calc-edit-variable var-PointStyles] 2 nil nil]) (defalias 'calc-edit-PlotRejects #[nil "\300\301!\207" [calc-edit-variable var-PlotRejects] 2 nil nil]) (defalias 'calc-edit-AlgSimpRules #[nil "\300\301!\207" [calc-edit-variable var-AlgSimpRules] 2 nil nil]) (defalias 'calc-edit-TimeZone #[nil "\300\301!\207" [calc-edit-variable var-TimeZone] 2 nil nil]) (defalias 'calc-edit-Units #[nil "\300\301!\207" [calc-edit-variable var-Units] 2 nil nil]) (defalias 'calc-edit-ExtSimpRules #[nil "\300\301!\207" [calc-edit-variable var-ExtSimpRules] 2 nil nil]) (defalias 'calc-declare-variable #[(&optional var) "\300\301!\207" [calc-do #[nil "\204 \306\307\310\"\204 \311\312\211\312\211 \312 \313\314!\203' \f\242\315=\204+ \315C\f\f A\211\203\206 @\242\315=\203. @G\316U\203. @A@\211\f\242\315=\203q A\211\203k @\242\300=\203S \317 @8=\203S @\202\202 \f\242\300=\203\200 \317\f8=\204\202 \312 \203. \320\321!\210\322\323\324\325!\" \205\234 \326\317 @8\310\"\"\327\330\n\"\205\250 \331\n!\211\242\332=\203\267 \332\333\317\n8\"\210\nA\203\303 \315\nB\202\306 \n@\n\242\315=\203\330 \nG\317U\203\330 \nA@\334\335\336\337!C\n\205\345 \nC#\340\"\210\341\f!\f\f\242\315=\203\f\342 \fA\"\241\210\fA\204\342 @\f\"\f\202\342 @\f\"\f\n\203z\311=?\205#\f A\211\203D @\242\315=\203$ @G\316U\203$\317 @8\n\232\203$ \203m @A\335 @A@\242\315=\203] @A@\202c\315 @A@D\337!C\"\240\210\202z\335\f\315\337!\nEC\"\f\343\314!-\207" [var dp decl def row rp calc-read-var-name "Declare: " 0 var-All nil calc-var-value var-Decls vec 3 2 calc-unread-command 1 read-string format "Declare: %s to be: " calc-var-name math-format-flat-expr string-match "[^ ]" math-read-exprs error "Bad format in declaration: %s" calc-record append (vec) math-build-var-name "decl" copy-sequence delq calc-refresh-evaltos] 6]] 2 nil nil]) (byte-code "\301B\302\301!\204 \303\301\304\"\210\301\207" [current-load-list calc-dont-insert-variables default-boundp set-default (var-FitRules var-FactorRules var-CommuteRules var-JumpRules var-DistribRules var-MergeRules var-NegateRules var-InvertRules var-IntegAfterRules var-TimeZone var-PlotRejects var-PlotData1 var-PlotData2 var-PlotData3 var-PlotData4 var-PlotData5 var-PlotData6 var-DUMMY)] 3) (defalias 'calc-permanent-variable #[(&optional var) "\300\301!\207" [calc-do #[nil "\204 \303\304!\305\203 \306!\203 J\204 \307\310!\210\311\312\n!!q\210\203/ \313!\210\2023 \314\315!\210\316 )\207" [var calc-pv-pos calc-settings-file calc-read-var-name "Save variable (default all): " nil boundp error "No such variable" find-file-noselect substitute-in-file-name calc-insert-permanent-variable mapatoms #[(x) "\302\303\304!\"\205\" >?\205\" \305!\205\" J\242\306=?\205\" \307!\207" [x calc-dont-insert-variables string-match "\\`var-" symbol-name calc-var-value special-const calc-insert-permanent-variable] 4] save-buffer] 3]] 2 nil nil]) (defalias 'calc-insert-permanent-variable #[(var) "eb\210\302\303\304!\305Q\306\307#\203@ \310 \311y\210\312\313!\203( \314\225\306\210`|\210\315 c\210\316 \317\304!G#b\210\320\321!\210\311u\210 `|\210\202U db\210\322\304!\323\315 \324\304!\325\261\210\326u\210\327\330!!c\210\321y\207" [var calc-pv-pos search-forward "(setq " symbol-name " '" nil t point-marker -1 looking-at ";;; Variable .* stored by Calc on " 0 current-time-string - 8 forward-sexp 1 "\n;;; Variable \"" "\" stored by Calc on " "\n(setq " " ')\n" -2 prin1-to-string calc-var-value] 7]) (defalias 'calc-insert-variables #[(buf) "\212q\210\301\302!)\207" [buf mapatoms #[(x) "\305\306\307!\"\205U >?\205U \310!\205U J\242\311=?\205U \302=\203, \n\312\232?\205U \303=\2039 \313\232?\205U \314\307!\315\316\f\317>\203I \320\202J \f \321J\322\")!\323\261\207" [x calc-dont-insert-variables var-Decls var-Holidays calc-language string-match "\\`var-" symbol-name calc-var-value special-const (vec) (vec (var sat var-sat) (var sun var-sun)) "(setq " " " prin1-to-string (nil big) flat math-format-value 100000 ")\n"] 7]] 2 nil "bBuffer in which to save variable values: "]) (defalias 'calc-assign #[(arg) "\300\301`\"\207" [calc-do #[nil "\301\302\303#\207" [arg calc-binary-op ":=" calcFunc-assign] 4]] 3 nil "P"]) (defalias 'calc-evalto #[(arg) "\300\301`\"\207" [calc-do #[nil "\301\302\303#\207" [arg calc-unary-op "=>" calcFunc-evalto] 4]] 3 nil "P"]) (defalias 'calc-subscript #[(arg) "\300\301`\"\207" [calc-do #[nil "\301\302\303#\207" [arg calc-binary-op "sub" calcFunc-subscr] 4]] 3 nil "P"]) (provide 'calc-store)
Close
