;ELC ;;; compiled by kwzh@hal.gnu.ai.mit.edu on Tue May 2 20:17:07 1995 ;;; from file /gd/gnu/emacs/19.0/lisp/cl-indent.el ;;; emacs version 19.28.90.69. ;;; 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 "`/gd/gnu/emacs/19.0/lisp/cl-indent.el' was compiled for Emacs 19")) #@181 *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-indent-maximum-backtracking 3 (#$ . -488)) #@112 *Indentation of tags relative to containing list. This variable is used by the function `lisp-indent-tagbody'. (defvar lisp-tag-indentation 1 (#$ . -731)) #@478 *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'. (defvar lisp-tag-body-indentation 3 (#$ . -893)) (defalias 'common-lisp-indent-function #[(indent-point state) "i‰ \fŜ \n bi  \fW` u` $‰!O`!`{b!N\"TO!NN` Wݏ\nB\n)\nA\"߂\"= Sf> Zf=T  Sf= Sf=  Zf=   Sf=1T q\nAFl\n@XY\\Dl\n@TUk*\\l 9\n\f % \n\f & + 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]) (defalias 'lisp-indent-report-bad-format #[(m) "\n\f$" [error "%s has a badly-formed %s property: %s" function common-lisp-indent-function m] 5]) (defalias 'lisp-indent-259 #[(method path state indent-point sexp-column normal-indent) "" [exit (byte-code " œÉ : !@SA @= =G A =[ A:[ AA :z @=z A@9 A@ 9 A !\f :\", =U\\\", =V A ,VS A W,\", =D\", % \\D \", 9;  %\",L AA É. A@\f[ =iD x \\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]) (defalias 'lisp-indent-tagbody #[(path state indent-point sexp-column normal-indent) "A \nbyw!  \\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]) (defalias '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]) (defalias 'lisp-indent-function-lambda-hack #[(path state indent-point sexp-column normal-indent) "A\f@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]) (byte-code " @@ @A9 @AN @A@# A)‡" [((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 common-lisp-indent-function] 6)