;ELC   
;;; Compiled
;;; in Emacs version 28.0.50
;;; with all optimizations.


(byte-code "\300\301!\210\300\302!\207" [require lisp-mode lfe-mode] 2)
#@569 This function is the normal value of the variable `lfe-indent-function'.

If this function is the value of the variable `lisp-indent-function' then
`calculate-lisp-indent' will call it to determine if the
arguments of a LFE function call should be indented specially.

INDENT-POINT is the position where the user typed TAB, or equivalent.
Point is located at the point to indent under;
`STATE' is the `parse-partial-sexp' state for that position.

Copied from function `lisp-indent-function', but with gets of
lfe-indent-{function,hook} and it uses `lfe-body-indent'.
(defalias 'lfe-indent-function #[(indent-point state) "i	\306\234Tb\210\307`\n\310\311$\210	\312\234\203: \313\314!\204: \212\306y\210`)\nV\2043 \nb\210\315 \210\307`\n\310\311$\210\316 \210i\202\211 `\317\306!\210`{\320\321\f!\322N\206Q \321\f!\323N\211\324=\204j \204q \fG\325V\203q \326\327\f\"\203q \330	\"\202\210 \250\203 \331	$\202\210 \205\210 	#*)\207" [normal-indent state calculate-lisp-indent-last-sexp method function indent-point 1 parse-partial-sexp 0 t 2 looking-at "\\sw\\|\\s_" beginning-of-line backward-prefix-chars forward-sexp nil intern-soft lfe-indent-function lfe-indent-hook defun 3 string-match "\\`def" lfe-indent-defform lfe-indent-specform] 6 (#$ . 160)])
(byte-code "\300\301\302\303\304\305\306\307&\210\310\301\311\312#\207" [custom-declare-variable lfe-body-indent 2 "Number of columns to indent the second line of a `(def...)' form." :group lfe :type integer put safe-local-variable integerp] 8)
(defalias 'lfe-indent-specform #[(count state indent-point normal-indent) "\306\234	\307\211\211b\210i\n\\\306u\210\310\306!\210\311`\306\312$\210`W\203E \3131@ 	S\310\306!\210\311`\306\312$0\202B \210\307\204# 	\314V\203e \f	Z\306X\203^ \n\315_\\D\202\204 D\202\204 \f\314U\203q 	\314U\204~ 	\314U\203\202 X\203\202 \202\204 ,\207" [state count containing-form-column body-indent i containing-form-start 1 nil forward-sexp parse-partial-sexp t (error) 0 2 lfe-body-indent indent-point normal-indent] 6])
(defalias 'lfe-indent-defform #[(state indent-point) "A@b\210\302y\210`AA@V\205 A@b\210	i\\\207" [state lfe-body-indent 1] 2])
#@73 Instruct `lfe-indent-function' to indent the body of `SYM' by `INDENT'.
(defalias 'put-lfe-indent #[(sym indent) "\302\303	#\207" [sym indent put lfe-indent-function] 4 (#$ . 2345)])
#@43 Call `put-lfe-indent' on a series, `KVS'.
(defalias 'define-lfe-indent '(macro . #[(&rest kvs) "\301\302\303\"B\207" [kvs progn mapcar #[(x) "\301\302@DA@E\207" [x put-lfe-indent quote] 3]] 4 (#$ . 2535)]))
(byte-code "\300\301\302\"\210\300\303\304\"\210\300\305\304\"\210\300\306\304\"\210\300\307\302\"\210\300\310\304\"\210\300\311\312\"\210\300\313\304\"\210\300\314\304\"\210\300\315\304\"\210\300\316\312\"\210\300\317\302\"\210\300\320\312\"\210\300\321\304\"\210\300\322\304\"\210\300\323\304\"\210\300\324\304\"\210\300\325\304\"\210\300\326\304\"\210\300\327\304\"\210\300\330\304\"\210\300\331\304\"\210\300\332\304\"\210\300\333\304\"\210\300\334\304\"\210\300\335\304\"\210\300\336\312\"\210\300\337\312\"\210\300\340\304\"\210\300\341\302\"\210\300\342\312\"\210\300\343\312\"\210\300\344\304\"\210\300\345\312\"\210\300\346\304\"\210\300\347\350\"\210\300\351\312\"\210\300\352\304\"\210\300\353\312\"\210\300\354\312\"\210\355\356!\207" [put-lfe-indent : 2 after 1 bc binary-comp call case catch 0 define-function define-macro define-module extend-module do eval-when-compile flet flet* fletrec if lambda let let* let-function letrec-function let-macro lc list-comp macrolet match-lambda match-spec prog1 prog2 progn receive try when syntaxlet defflavor 3 begin let-syntax syntax-rules macro provide lfe-indent] 3)