;ELC ;;; compiled by jimb@geech.gnu.ai.mit.edu on Mon Jul 5 22:31:37 1993 ;;; from file /gd/gnu/emacs/19.0/lisp/cl-indent.el ;;; emacs version 19.15.16. ;;; bytecomp version FSF 2.10 ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19"))) (error "This file was compiled for Emacs 19")) (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 the 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'.") (byte-code "ﾀﾁﾂ\"安ﾃﾄ\"安ﾅﾆ\"安ﾇﾈ\"安ﾉﾊ\"安ﾋﾌ\"囲ﾏ@@ﾁ@A98@AﾁN=@A@#A!)ﾀ" [defalias common-lisp-indent-function #[(indent-point state) "iﾁﾂ ﾅ慊 \n bi ┃  WΝ` ﾅu夷` ﾅﾏ$按演ﾓﾔ!Оﾂﾂｗ`ﾕﾅ!`{b椅!ﾗNъﾘﾙ\"レﾁ乃ﾂOﾖ!ﾗNｗﾚNﾁ` WΙﾂﾜﾝ巡\nB\n)ﾙ\nAﾘﾞ\"νﾟぶﾘ\"ﾔゅ= Sf> 藥f=T ｔ Sf= Sf=  藥f=  ｔ Sf=1T ｔヴｨヒ\nAェＭ\n@Xズ饅\DＭ\n@TUヌ*\\Ｍ ｔ9ユ\n % ｔ\n & + b  ┤ﾂ処) ." [normal-indent 0 nil indent-point state 1 sexp-column containing-form-start last-point calculated path depth lisp-indent-maximum-backtracking containing-sexp parse-partial-sexp t method function tem looking-at "\\sw\\|\\s_" forward-sexp intern-soft common-lisp-indent-function string-match ":[^:]+" lisp-indent-function n (byte-code "ﾀﾁ!`\nY?ﾃ`\nﾁﾄ$ Tﾄ" [forward-sexp 1 indent-point parse-partial-sexp t n] 5) ((error)) "\\`def" (4 (&whole 4 &rest 1) &body) "\\`\\(with\\|do\\)-" (4 &body) defun (4 (&whole 4 &rest 1) &body) (39 96) 2 35 44 64 4 lisp-body-indent lisp-indent-259 (byte-code "ﾀﾁ!\nTﾀ" [backward-up-list 1 depth] 2) ((error (byte-code "ﾂ" [lisp-indent-maximum-backtracking depth nil] 1)))] 8] lisp-indent-report-bad-format #[(m) "ﾀﾁ\nﾃ $" [error "%s has a badly-formed %s property: %s" function common-lisp-indent-function m] 5] lisp-indent-259 #[(method path state indent-point sexp-column normal-indent) "ﾀﾁ合" [exit (byte-code " ﾂ愿演 :ﾊ !@SAﾃ @ﾃ=ш ﾋ=エ Aリ ﾌ=ゼ A:ゼ AAリ ｨш :ホ @ﾍ=ホ A@9ш A@ｨш 9ュ Aリﾊ ! :ﾎﾏ\", ﾋ=αﾎﾏﾑUｸ┷\\ぜ\", ﾌ=ψﾑVﾑ A ,ﾑVS A ﾑW,ﾎﾏ\", ﾃ=ﾎﾏD\", ｨ%ﾎﾏ \\D \", 9;ﾎﾏ  %\",キ AA ﾃ. A@ﾎﾏ ゼｂ ﾃ=ナDｂ ｨベ \\Dｂ  %\",-" [path state 1 nil tail tem n containing-form-start p method lisp-indent-report-bad-format &body &rest &whole throw exit normal-indent 0 sexp-column lisp-body-indent indent-point] 9)] 2] lisp-indent-tagbody #[(path state indent-point sexp-column normal-indent) "A 浬nb暗y案ﾅw鞍ﾇ!  \\A\nｨ.\n\\A\nﾋ=<ﾅﾌﾍ盾A\\ﾐ)D" [path normal-indent indent-point 0 " " nil looking-at "\\sw\\|\\s_" sexp-column lisp-tag-indentation lisp-tag-body-indentation t (byte-code "ﾀﾁ!i" [backward-sexp 1] 2) ((error (1+ sexp-column))) lisp-body-indent state 1] 3] lisp-indent-do #[(path state indent-point sexp-column normal-indent) "@ﾁY\nﾄ %)ﾉﾊ &" [path 3 lisp-body-indent lisp-tag-body-indentation lisp-indent-tagbody state indent-point sexp-column normal-indent lisp-indent-259 ((&whole nil &rest) (&whole nil &rest 1))] 7] lisp-indent-function-lambda-hack #[(path state indent-point sexp-column normal-indent) "A @ﾁV\nﾃﾄﾅ順" [path 3 normal-indent nil (byte-code "澗ﾁ!按u暗ﾄ! iﾆ\\\\ \\)" [backward-up-list 2 1 looking-at "\\(lisp:+\\)?function\\(\\Sw\\|\\S_\\)" lisp-body-indent -1 sexp-column] 3) ((error (+ sexp-column lisp-body-indent)))] 3] ((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) (compiler-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)) l put] 6)