;ELC ;;; compiled by jwz@thalidomide on Fri Dec 31 01:58:26 1993 ;;; from file /th/jwz/emacs19/lisp/modes/cl-indent.el ;;; emacs version 19.9 Lucid (beta9). ;;; bytecomp version 2.22; 22-dec-93. ;;; 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 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.") (byte-code "MMMMMMM@@@A9@AN@A@#A\\)" [common-lisp-indent-function #[(indent-point state) "i‰ Ŝ \n bi   W` u` $‰!`!`{b!N\"TO!NN` Wݏz\nB\n)\nA\"ߪ\"= Sf> Zf=T q Sf= Sf= Zf=  Sf=T \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 " œÉb : !@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 \nbyw! \\\n\n\\\n=͏\\М)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] lisp-indent-defmethod #[(path state indent-point sexp-column normal-indent) "@YA?\nA@bu !) ʪ  \n&*" [path 3 state nil forward-sexp backward-sexp looking-at ":" t combined (4 4 (&whole 4 &rest 1) &body) (4 (&whole 4 &rest 1) &body) method lisp-indent-259 indent-point sexp-column normal-indent] 8] ((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) (defmethod lisp-indent-defmethod) (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)