;ELC ;;; Compiled ;;; in Emacs version 26.3 ;;; 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\300\302!\210\303\304\305\"\207" [require ob org-macs 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))) (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) #@78 Expand BODY according to PARAMS, return the expanded body. (fn BODY PARAMS) (defalias 'org-babel-expand-body:lisp #[514 "\302!\303\236A\304\211\204(\304\305\203\306\202\307\310\305\311\310##\266\202\2024\312\313\314\315#\316\317\260\320\235\204@\321\235\203G\322\323\"\202H\211*\207" [print-level print-length org-babel--get-vars :result-params nil replace-regexp-in-string "\\`\\([ ]*\n\\)+" "\\`[ \n ]+" "" "[ \n ]+\\'" "(let (" mapconcat #[257 "\300\301@A#\207" [format "(%S (quote %S))"] 5 "\n\n(fn VAR)"] "\n " ")\n" ")" "code" "pp" format "(pprint %s)"] 14 (#$ . 1361)]) #@182 Execute a block of Common Lisp code with Babel. BODY is the contents of the block, as a string. PARAMS is a property list containing the parameters of the block. (fn BODY PARAMS) (defalias 'org-babel-execute:lisp #[514 "\303\304=\203 \305\202\306=\203\307\202\310!\210\311\312\313\236A\235\203&\314\202'\315\316\317!r\211q\210\320\321\322\323\324!\325\"\326$\216\327\"c\210\330\331\236\203Q\331\236A\202R \332\203^\332\n\"\202_\333\334ed\"\"\262D\335\236A\"*\262!\313\236A\336\235?\205\323\337\235\204\276\340\235\204\276\341\235\204\276\342\235\204\276\343\235\204\276\344\235\204\276\312\235\204\270\345\235\204\270\346\235\204\270\347\235\203\304\350\235\204\304\351!\202\323\3521\321\353\354!!0\202\323\210\262\262\355\356\236A\357\236A\"\355\360\236A\361\236A\"#\207" [org-babel-lisp-eval-fn default-directory org-babel-lisp-dir-fmt require slime-eval slime sly-eval 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" org-strip-quotes (error) read org-babel-lisp-vector-to-list org-babel-pick-name :colname-names :colnames :rowname-names :rownames] 13 (#$ . 1981)]) #@16 (fn RESULTS) (defalias 'org-babel-lisp-vector-to-list #[257 "\300\301\302#\207" [replace-regexp-in-string "#(" "("] 5 (#$ . 3469)]) (provide 'ob-lisp)