;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\300\302!\210\303\304\305\"\207" [require ob comint add-to-list org-babel-tangle-lang-exts ("picolisp" . "l")] 3)
#@51 String to indicate that evaluation has completed.
(defvar org-babel-picolisp-eoe "org-babel-picolisp-eoe" (#$ . 549))
#@51 Name of command used to evaluate picolisp blocks.
(custom-declare-variable 'org-babel-picolisp-cmd "pil" '(#$ . 673) :group 'org-babel :version "24.1" :type 'string)
#@60 Expand BODY according to PARAMS, return the expanded body.
(defalias 'org-babel-expand-body:picolisp #[(body params) "\306\307\310\311\"\"\312\313\"A\314\211\211G\315V\203' \316\317\320\f\321#\322\323\260\202( ,\207" [params print-length print-level result-params vars body mapcar cdr org-babel-get-header :var assoc :result-params nil 0 "(prog (let (" mapconcat #[(var) "\301\302\303@!\303A!#\207" [var format "%S '%S)" print] 5] "\n      " " \n" ") )"] 6 (#$ . 845)])
#@109 Execute a block of Picolisp code with org-babel.  This function is
 called by `org-babel-execute-src-block'
(defalias 'org-babel-execute:picolisp #[(body params) "\306\307!\210\310\311\"A\312	!\310\313\"A\310\314\"A\315\"@\316\f\235\204, \317\f\235\2034 \320\321@\"\202V \322\f\235\203F \n\204F \320\323@\"\202V \322\f\235\203T \320\324@\"\202V @A	\325\230\204\364 \326\327\330\331\332\333\334\335\n!\204p \336\337\n\"\210\340 B\341\216r\nq\210\342C\343D\344EBE\332\211FG\345\346p!!b\210`dH\211IH{FIH|\210*Ac\210\347 \210\350J\261\210\347 \210Kb\210\212\351\352J!\332\353#\205\314 \351L\332\353#)\204\331 \354\346p!!\210\202\266 \345\346p!!b\210Fc\210\355DL\".\"\"!\356#\202-\357\360!\211M\361\362\363!!NO\364\216rNq\210A\365Pc\210)rNq\210\366\332\211O\332\367%\210,\370\320\371P\372M!#\343\")Q\fR\325R\235?\205\232\373R\235\204\217\374R\235\204\217\375R\235\204\217\316R\235\204\217\317R\235\204\217\376R\235\204\217\377R\235\204\206\201S R\235\204\206\201T R\235\204\206\201U R\235\203\224\201V R\235\204\224Q\202\232\201W Q!.\207" [params session-name session result-type result-params body message "executing Picolisp source code block" assoc :session org-babel-picolisp-initiate-session :result-type :result-params org-babel-expand-body:picolisp "code" "pp" format "(pretty (out \"/dev/null\" %s))" "value" "(print (out \"/dev/null\" %s))" "(out \"/dev/null\" %s)" "none" mapconcat identity butlast delq nil mapcar #[(line) "\303G\304V\205@ G\305Y\203 \304\305O\306\230\203 \305\307O\202@ \310	\235\203? \311\307\312\313#)\266\203\203? \304\313\311\"O\202@ !\207" [line result-params inhibit-changing-match-data org-babel-chomp 0 3 "-> " nil "output" "->" t string-match] 8] org-babel-comint-buffer-livep error "Buffer %s does not exist or has no process" match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) #[(input) "\300\207" [nil] 1] "" #[(text) "	P\211\207" [string-buffer text] 2] process-mark get-buffer-process comint-send-input "'" re-search-forward regexp-quote t accept-process-output split-string "\n" org-babel-temp-file "picolisp-script-" get-buffer-create generate-new-buffer-name " *temp file*" ((byte-code "\301!\203\n \302!\210\301\207" [#1=#:temp-buffer buffer-name kill-buffer] 2)) "(bye)" write-region 0 org-babel-eval "%s %s" org-babel-process-file-name "scalar" "verbatim" "html" "file" "output" full-body wrapped-body save-match-data-internal comint-input-filter string-buffer comint-output-filter-functions dangling-text raw end start org-babel-picolisp-eoe comint-last-input-end comint-prompt-regexp script-file #1# #2=#:temp-file org-babel-picolisp-cmd result #3=#:--params "raw" "org" "drawer" "table" read] 12 (#$ . 1333)])
#@108 If there is not a current inferior-process-buffer in SESSION
then create.  Return the initialized session.
(defalias 'org-babel-picolisp-initiate-session #[(&optional session-name) "\304\230?\205- \305\306!\210\206 \307\310	!\203 \311	!\202, \312 \313\216\314!\210\315!\210p*)\207" [session-name session #1=#:wconfig org-babel-picolisp-cmd "none" require inferior-picolisp "*inferior-picolisp*" org-babel-comint-buffer-livep get-buffer current-window-configuration ((set-window-configuration #1#)) run-picolisp rename-buffer] 2 (#$ . 4139)])
(provide 'ob-picolisp)