ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/org/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/org/ob-lisp.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.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.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\300\301!\210\302\303\304\"\207" [require ob add-to-list org-babel-tangle-lang-exts ("lisp" . "lisp")] 3)
(defvar org-babel-default-header-args:lisp nil)
(defvar org-babel-header-args:lisp '((package . :any)))
#@160 Format string used to wrap code bodies to set the current directory.
For example a value of "(progn ;; %s\n %%s)" would ignore the
current directory string.
(custom-declare-variable 'org-babel-lisp-dir-fmt "(let ((*default-pathname-defaults* #P%S)) %%s)" '(#$ . 633) :group 'org-babel :version "24.1" :type 'string)
#@60 Expand BODY according to PARAMS, return the expanded body.
(defalias 'org-babel-expand-body:lisp #[(body params) "\306\307\310\311\"\"\312\313\"A\314\211 \315 G\316V\203( \317\320\321 \322#\323
\324\260\202)
! \325\n\235\2047 \326\n\235\203> \327\330
\"\202?
-\207" [params vars result-params print-level print-length body mapcar cdr org-babel-get-header :var assoc :result-params nil org-babel-trim 0 "(let (" mapconcat #[(var) "\301\302@A#\207" [var format "(%S (quote %S))"] 4] "\n " ")\n" ")" "code" "pp" format "(pprint %s)"] 7 (#$ . 957)])
#@49 Execute a block of Common Lisp code with Babel.
(defalias 'org-babel-execute:lisp #[(body params) "\306\307!\210\310\311\312!rq\210\313\216\314 \n\"c\210\315\316\317\320\n\"\203& \317\320\n\"A\202' \321\f\2034 \321
\f\"\2025 \322\323ed\"\")D\317\324\n\"A\"+ )\317\325\n\"A *\326*\235?\205\265 \327*\235\204\232 \330*\235\204\232 \331*\235\204\232 \332*\235\204\232 \333*\235\204\232 \334*\235\204\223 \335*\235\204\223 \336*\235\204\223 \337*\235\203\240 \340*\235\204\240 )@\202\265 \3411\260 \342\343)A@!!0\202\265 \210)A@*\344\317\345\n\"A\317\346\n\"A\"\344\317\347\n\"A\317\350\n\"A\"#\207" [#1=#:temp-buffer body params default-directory dir org-babel-lisp-dir-fmt require slime org-babel-reassemble-table generate-new-buffer " *temp*" #[nil "\301!\205 \302!\207" [#1# buffer-name kill-buffer] 2] org-babel-expand-body:lisp slime-eval swank:eval-and-grab-output assoc :dir format "(progn %s)" buffer-substring-no-properties :package :result-params "none" "scalar" "verbatim" "html" "code" "pp" "output" "raw" "org" "drawer" "table" (error) read org-babel-lisp-vector-to-list org-babel-pick-name :colname-names :colnames :rowname-names :rownames result #2=#:--params] 8 (#$ . 1524)])
(defalias 'org-babel-lisp-vector-to-list #[(results) "\301\302\303#\207" [results replace-regexp-in-string "#(" "("] 4])
(provide 'ob-lisp)
Kontol Shell Bypass