(defvar lisp-indent-maximum-backtracking 3 "\ *Maximum depth to backtrack out from a sublist for structured indentation. If this variable is 0, no backtracking will occur and forms such as flet may not be correctly indented.") (defvar lisp-tag-indentation 1 "\ *Indentation of tags relative to containing list. This variable is used by the function lisp-indent-tagbody.") (defvar lisp-tag-body-indentation 3 "\ *Indentation of non-tagged lines relative to containing list. This variable is used by the function lisp-indent-tagbody to indent normal lines (lines without tags). The indentation is relative to the indentation of the parenthesis enclosing he special form. If the value is t, the body of tags will be indented as a block at the same indentation as the first s-expression following the tag. In this case, any forms before the first tag are indented by lisp-body-indent.") (defun common-lisp-indent-hook (indent-point state) (byte-code "i\" bi ?'  W` !`$ !?SÉ` ! `\"! b!  N?\"!TO!N? N`W㏅È B)?? A?\"\"= Sf> Zf=? T Sf=0 T?!o AFj @XX \\Dj @TUi \\j9  &  &+ b  ?) .)" [normal-indent depth path nil calculated last-point indent-point containing-form-start state sexp-column lisp-indent-maximum-backtracking containing-sexp t tem function method n lisp-body-indent 0 elt 1 forward-char parse-partial-sexp looking-at "\\sw\\|\\s_" forward-sexp downcase buffer-substring intern-soft common-lisp-indent-hook string-match ":[^:]+" match-beginning lisp-indent-hook (byte-code "!`Y`$ T‡" [indent-point nil t n forward-sexp 1 parse-partial-sexp] 6) ((error (byte-code "" [nil] 1))) "\\`def" (4 (&whole 4 &rest 1) &body) "\\`\\(with\\|do\\)-" (4 &body) defun (4 (&whole 4 &rest 1) &body) (39 96) 2 35 integerp 4 funcall lisp-indent-259 (byte-code "!T" [depth backward-up-list 1] 3) ((error (byte-code " " [depth lisp-indent-maximum-backtracking] 2)))] 23)) (defun lisp-indent-report-bad-format (m) (byte-code " $" [function m error "%s has a badly-formed %s property: %s" common-lisp-indent-hook] 5)) (defun lisp-indent-259 (method path state indent-point sexp-column normal-indent) (byte-code "" [exit (byte-code " \":?!@SAȉ @ = =DA? =YA:YAA? ! :z @=z A@9z A@! 9A?! :? \" = U?  \\ \" = VA V SA W \" = D\" !\"? \\ D \" 99    &\"??J AAȉ A@\\  =i D !x \\ D    &\"*-" [p path containing-form-start state n tem tail method nil normal-indent sexp-column lisp-body-indent indent-point t elt 1 lisp-indent-report-bad-format &body &rest integerp &whole throw exit 0 funcall] 25)] 2)) (defun lisp-indent-tagbody (path state indent-point sexp-column normal-indent) (byte-code "A?? F b !!\" \\? !. \\? =;я? \\\"D)" [path normal-indent indent-point sexp-column lisp-tag-indentation lisp-tag-body-indentation t lisp-body-indent state beginning-of-line skip-chars-forward " " looking-at "\\sw\\|\\s_" integerp nil (byte-code "!i" [backward-sexp 1] 2) ((error (byte-code "T" [sexp-column] 1))) elt 1] 8)) (defun lisp-indent-do (path state indent-point sexp-column normal-indent) (byte-code "@Y K &)$K &" [path lisp-tag-body-indentation lisp-body-indent state indent-point sexp-column normal-indent 3 funcall lisp-indent-tagbody lisp-indent-259 ((&whole nil &rest) (&whole nil &rest 1))] 11)) (defun lisp-indent-function-lambda-hack (path state indent-point sexp-column normal-indent) (byte-code "A @V ŏ" [path normal-indent 3 nil (byte-code "!!!i# \\)" [lisp-body-indent sexp-column backward-up-list 2 forward-char 1 looking-at "\\(lisp:+\\)?function\\(\\Sw\\|\\S_\\)" + -1] 7) ((error (byte-code " \\" [sexp-column lisp-body-indent] 2)))] 3)) (let ((l (quote ((block 1) (catch 1) (case (4 &rest (&whole 2 &rest 1))) (ccase . case) (ecase . case) (typecase . case) (etypecase . case) (ctypecase . case) (catch 1) (cond (&rest (&whole 2 &rest 1))) (block 1) (defvar (4 2 2)) (defconstant . defvar) (defparameter . defvar) (define-modify-macro (4 &body)) (define-setf-method (4 (&whole 4 &rest 1) &body)) (defsetf (4 (&whole 4 &rest 1) 4 &body)) (defun (4 (&whole 4 &rest 1) &body)) (defmacro . defun) (deftype . defun) (defstruct ((&whole 4 &rest (&whole 2 &rest 1)) &rest (&whole 2 &rest 1))) (destructuring-bind ((&whole 6 &rest 1) 4 &body)) (do lisp-indent-do) (do* . do) (dolist ((&whole 4 2 1) &body)) (dotimes . dolist) (eval-when 1) (flet ((&whole 4 &rest (&whole 1 (&whole 4 &rest 1) &body)) &body)) (labels . flet) (macrolet . flet) (if (nil nil &body)) (if (&rest nil)) (lambda ((&whole 4 &rest 1) &rest lisp-indent-function-lambda-hack)) (let ((&whole 4 &rest (&whole 1 1 2)) &body)) (let* . let) (locally 1) (multiple-value-bind ((&whole 6 &rest 1) 4 &body)) (multiple-value-call (4 &body)) (multiple-value-list 1) (multiple-value-prog1 1) (multiple-value-setq (4 2)) (prog ((&whole 4 &rest 1) &rest lisp-indent-tagbody)) (prog* . prog) (prog1 1) (prog2 2) (progn 0) (progv (4 4 &body)) (return 0) (return-from (nil &body)) (tagbody lisp-indent-tagbody) (throw 1) (unless 1) (unwind-protect (5 &body)) (when 1))))) (while l (put (car (car l)) (quote common-lisp-indent-hook) (if (symbolp (cdr (car l))) (get (cdr (car l)) (quote common-lisp-indent-hook)) (car (cdr (car l))))) (setq l (cdr l))))