| commit | author | age | ||
| 76bbd0 | 1 | ;ELC |
| C | 2 | ;;; Compiled |
| 3 | ;;; in Emacs version 26.1 | |
| 4 | ;;; with all optimizations. | |
| 5 | ||
| 6 | ;;; This file uses dynamic docstrings, first added in Emacs 19.29. | |
| 7 | ||
| 8 | ;;; This file does not contain utf-8 non-ASCII characters, | |
| 9 | ;;; and so can be loaded in Emacs versions earlier than 23. | |
| 10 | ||
| 11 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| 12 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| 13 | ||
| 14 | ||
| 15 | (byte-code "\300\301!\210\302\303\304\"\207" [require ob add-to-list org-babel-tangle-lang-exts ("lisp" . "lisp")] 3) | |
| 16 | (defvar org-babel-default-header-args:lisp nil) | |
| 17 | (defvar org-babel-header-args:lisp '((package . :any))) | |
| 18 | (byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313\314\315& \210\300\316\302\303\317DD\320\306\307\310\321\314\322& \207" [custom-declare-variable org-babel-lisp-eval-fn funcall function #[0 "\300\207" [slime-eval] 1] "The function to be called to evaluate code on the Lisp side.\nValid values include `slime-eval' and `sly-eval'." :group org-babel :version "26.1" :package-version (Org . "9.0") :type symbol org-babel-lisp-dir-fmt #[0 "\300\207" [#1="(let ((*default-pathname-defaults* #P%S\n)) %%s\n)"] 1 #1#] "Format string used to wrap code bodies to set the current directory.\nFor example a value of \"(progn ;; %s\\n %%s)\" would ignore the\ncurrent directory string." "24.1" string] 12) | |
| 19 | #@78 Expand BODY according to PARAMS, return the expanded body. | |
| 20 | ||
| 21 | (fn BODY PARAMS) | |
| 22 | (defalias 'org-babel-expand-body:lisp #[514 "\302!\303\236A\304\211\204 \305!\202! \306\307\310\311#\312\313\260\314\235\204- \315\235\2034 \316\317\"\2025 \211*\207" [print-level print-length org-babel--get-vars :result-params nil org-trim "(let (" mapconcat #[257 "\300\301@A#\207" [format "(%S (quote %S))"] 5 "\n\n(fn VAR)"] "\n " ")\n" ")" "code" "pp" format "(pprint %s)"] 10 (#$ . 1339)]) | |
| 23 | #@182 Execute a block of Common Lisp code with Babel. | |
| 24 | BODY is the contents of the block, as a string. PARAMS is | |
| 25 | a property list containing the parameters of the block. | |
| 26 | ||
| 27 | (fn BODY PARAMS) | |
| 28 | (defalias 'org-babel-execute:lisp #[514 "\303\304\267\202 \305\202 \306\202 \307!\210\310\311\312\236A\235\203 \313\202! \314\315\316!r\211q\210\317\320\321\322\323!\324\"\325$\216\326\"c\210\327\330\236\203K \330\236A\202L \331\203X \331\n\"\202Y \332\333ed\"\"\262D\334\236A\"*\262!\312\236A\335\235?\205\313 \336\235\204\270 \337\235\204\270 \340\235\204\270 \341\235\204\270 \342\235\204\270 \343\235\204\270 \311\235\204\262 \344\235\204\262 \345\235\204\262 \346\235\203\274 \347\235\204\274 \202\313 \3501\311 \351\352!!0\202\313 \210\262\262\353\354\236A\355\236A\"\353\356\236A\357\236A\"#\207" [org-babel-lisp-eval-fn default-directory org-babel-lisp-dir-fmt require #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (slime-eval 7 sly-eval 11)) slime sly nil org-babel-reassemble-table "output" :result-params car cadr generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 org-babel-expand-body:lisp swank:eval-and-grab-output :dir format "(progn %s\n)" buffer-substring-no-properties :package "none" "scalar" "verbatim" "html" "code" "pp" "file" "raw" "org" "drawer" "table" (error) read org-babel-lisp-vector-to-list org-babel-pick-name :colname-names :colnames :rowname-names :rownames] 13 (#$ . 1840)]) | |
| 29 | #@16 | |
| 30 | ||
| 31 | (fn RESULTS) | |
| 32 | (defalias 'org-babel-lisp-vector-to-list #[257 "\300\301\302#\207" [replace-regexp-in-string "#(" "("] 5 (#$ . 3390)]) | |
| 33 | (provide 'ob-lisp) | |
