.emacs.d.git - Gitblit

;ELC
;;; Compiled
;;; in Emacs version 26.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" (#$ . 547))
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313&    \207" [custom-declare-variable org-babel-picolisp-cmd funcall function #[0 "\300\207" [#1="pil"] 1 #1#] "Name of command used to evaluate picolisp blocks." :group org-babel :version "24.1" :type string] 10)
#@78 Expand BODY according to PARAMS, return the expanded body.
 
(fn BODY PARAMS)
(defalias 'org-babel-expand-body:picolisp #[514 "\302!\303\211\211G\304V\203\305\306\307\310#\311\312\260\202*\207" [print-length print-level org-babel--get-vars nil 0 "(prog (let (" mapconcat #[257 "\300\301\302@!\302A!#\207" [format "%S '%S)" print] 6 "\n\n(fn VAR)"] "\n      " " \n" ") )"] 8 (#$ . 942)])
#@127 Execute a block of Picolisp code with org-babel.  This function is
 called by `org-babel-execute-src-block'
 
(fn BODY PARAMS)
(defalias 'org-babel-execute:picolisp #[514 "\306\307!\210\310\236A\311!\312\236A\313\"\314\235\204\315\235\203&\316\317\"\202E\320\235\2037\2047\316\321\"\202E\320\235\203D\316\322\"\202E\211\323\230\204\362\324\325\326\327\330\331\332\333\334\335\336 !\337\"\340\341%\342!\204k\343\344\f\"\210\345 \332\346\347\335\336!\350\"\351$\216rq\210\212\352\353C\332\333\354\335\336!\355\"\356\357%    B\330\360\361p!!b\210`d{\262|\266\nc\210\362 \210\363\n\261\210\362 \210b\210\212\364\365\n!\330\366#\205\310\364\f\330\366#)\204\325\367\361p!!\210\202\265\360\361p!!b\210\211c\210\370\242\f\")\266\202,\262\"\"!\371#\202:\372\373!\211\374\375\376!!\332\346\377\335\336!\201@\"\201A$\216r\211q\210\201BPc\210)r\211q\210\201C\330\211\330\346%\210*\266\201D\316\201E \201F!#\353\"\262\323\235?\205\237\201G\235\204\226\201H\235\204\226\201I\235\204\226\314\235\204\226\315\235\204\226\201J\235\204\226\201K\235\204\216\201L\235\204\216\201M\235\204\216\201N\235\203\232\201O\235\204\232\202\237\201P!\262\207" [comint-input-filter comint-output-filter-functions org-babel-picolisp-eoe comint-last-input-end comint-prompt-regexp org-babel-picolisp-cmd message "executing Picolisp source code block" :session org-babel-picolisp-initiate-session :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 make-byte-code 257 "\302G\303V\205@G\304Y\203\303\304O\305\230\203\304\306O\202@\307\300\235\203?\310\306\311\312#)\266\203\203?\303\312\310\"O\202@!\207" vconcat vector [inhibit-changing-match-data org-babel-chomp 0 3 "-> " nil "output" "->" t string-match] 9 "\n\n(fn LINE)" org-babel-comint-buffer-livep error "Buffer %s does not exist or has no process" match-data 0 "\301\300\302\"\207" [set-match-data evaporate] 3 #[257 "\300\207" [nil] 2 "\n\n(fn INPUT)"] "" "\300\211\242P\240\207" [] 4 "\n\n(fn TEXT)" 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*" "\301\300!\205    \302\300!\207" [buffer-name kill-buffer] 2 "(bye)" write-region org-babel-eval "%s %s" org-babel-process-file-name "scalar" "verbatim" "html" "file" "output" "raw" "org" "drawer" "table" read] 22 (#$ . 1348)])
#@137 If there is not a current inferior-process-buffer in SESSION
then create.  Return the initialized session.
 
(fn &optional SESSION-NAME)
(defalias 'org-babel-picolisp-initiate-session #[256 "\211\301\230?\2058\302\303!\210\211\206\304\305!\203\306!\2026\307 \310\311\312\313\314!\315\"\316$\216\317!\210\320!\210p)\262\262\207" [org-babel-picolisp-cmd "none" require inferior-picolisp "*inferior-picolisp*" org-babel-comint-buffer-livep get-buffer current-window-configuration make-byte-code 0 "\301\300!\207" vconcat vector [set-window-configuration] 2 run-picolisp rename-buffer] 9 (#$ . 4015)])
(provide 'ob-picolisp)