;ELC
;;; Compiled by LTX@Xue-LingTaos-MacBook-Pro.local on Wed Mar 16 23:16:47 2011
;;; from file /Users/LTX/Projects/Emacs/emacs/lisp/org/ob-lisp.el
;;; in Emacs version 24.0.50.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\300\303!\210\300\304!\207" [require ob ob-ref ob-comint ob-eval] 2)
#@48 Default header arguments for lisp code blocks.
(defvar org-babel-default-header-args:lisp nil (#$ . 652))
#@47 Name of command used to evaluate lisp blocks.
(custom-declare-variable 'org-babel-lisp-cmd '"sbcl --script" '(#$ . 764) :group 'org-babel :type 'string)
#@60 Expand BODY according to PARAMS, return the expanded body.
(defalias 'org-babel-expand-body:lisp #[(body params) "\303\304\305\306\"\"\211G\307V\203\310\311\312	\313#\314\n\315\260\202\n)\207" [params vars body mapcar cdr org-babel-get-header :var 0 "(let (" mapconcat #[(var) "\301\302\303@\304ADD!\"\207" [var format "%S" print quote] 6] "\n      " ")\n" ")"] 6 (#$ . 923)])
#@103 Execute a block of Lisp code with org-babel.
This function is called by `org-babel-execute-src-block'
(defalias 'org-babel-execute:lisp #[(body params) "\306\307!\210\310\311!\210\312\313\314\"A!\313\315\"A\316\"\317	\203%\320\213\202f\321\322!\211\323\324\325!!!\"\326\216r!q\210\n\327\230\203G\330\331\f\"\202H\fc\210)r!q\210\332\333\211\"\333\334%\210,\335\330\336#\337
!#\340\")!+\207" [params session result-type body full-body script-file require slime message "executing Lisp source code block" org-babel-lisp-initiate-session assoc :session :result-type org-babel-expand-body:lisp read ((byte-code "\302\303D!\211A@)\207" [full-body x slime-eval swank:eval-and-grab-output] 4)) org-babel-temp-file "lisp-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)) "value" format "(print %s)" write-region nil 0 org-babel-eval "%s %s" org-babel-process-file-name "" #1# #2=#:temp-file org-babel-lisp-cmd] 8 (#$ . 1316)])
#@72 Prepare SESSION according to the header arguments specified in PARAMS.
(defalias 'org-babel-prep-session:lisp #[(session params) "\300\301!\207" [error "not yet implemented"] 2 (#$ . 2370)])
#@108 If there is not a current inferior-process-buffer in SESSION
then create.  Return the initialized session.
(defalias 'org-babel-lisp-initiate-session #[(&optional session) "\301\302!\210\303\230?\205
\304\213\207" [session require slime "none" ((byte-code "\300 \206\301 \207" [slime-connected-p slime-process] 1))] 2 (#$ . 2568)])
(provide 'ob-lisp)
