;ELC   
;;; Compiled
;;; in Emacs version 24.5.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\n)) %%s\n)" '(#$ . 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 (#$ . 961)])
#@49 Execute a block of Common Lisp code with Babel.
(defalias 'org-babel-execute:lisp #[(body params) "\306\307!\210\310\311\312\313\"A\235\203 \314\202 \315\316\317!r	q\210\320\216\321\n\"c\210\322\323\312\324\"\2035 \312\324\"A\2026 \325\f\203C \325\f\"\202D \326\327ed\"\")D\312\330\"A\"+!,\312\313\"A-\331-\235?\205\272 \332-\235\204\261 \333-\235\204\261 \334-\235\204\261 \335-\235\204\261 \336-\235\204\261 \337-\235\204\261 \311-\235\204\252 \340-\235\204\252 \341-\235\204\252 \342-\235\203\266 \343-\235\204\266 ,\202\272 \344\345\346\217*\347\312\350\"A\312\351\"A\"\347\312\352\"A\312\353\"A\"#\207" [params #1=#:temp-buffer body default-directory dir org-babel-lisp-dir-fmt require slime org-babel-reassemble-table "output" assoc :result-params car cadr generate-new-buffer " *temp*" ((byte-code "\301!\203\n \302!\210\301\207" [#1# buffer-name kill-buffer] 2)) org-babel-expand-body:lisp slime-eval 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" nil (byte-code "\301\302!!\207" [result read org-babel-lisp-vector-to-list] 3) ((error result)) org-babel-pick-name :colname-names :colnames :rowname-names :rownames result #2=#:--params] 9 (#$ . 1528)])
(defalias 'org-babel-lisp-vector-to-list #[(results) "\301\302\303#\207" [results replace-regexp-in-string "#(" "("] 4])
(provide 'ob-lisp)