comparison lisp/emacs-lisp/cl-indent.el @ 21102:363bd52feeb2

Whitespace changes.

21101:60552d83a97f

	   (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))

	   (macrolet . flet)
	   ;; `else-body' style
	   (if          (nil nil &body))
	   ;; single-else style (then and else equally indented)
	   (if          (&rest nil))
	   ;(lambda     ((&whole 4 &rest 1) &body))
	   (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) ;barf
	   (locally 1)
	   ;(loop ...)
	   (multiple-value-bind ((&whole 6 &rest 1) 4 &body))
	   (multiple-value-call (4 &body))
	   (multiple-value-prog1 1)
	   (multiple-value-setq (4 2))
	   (multiple-value-setf . multiple-value-setq)
	   ;; Combines the worst features of BLOCK, LET and TAGBODY
	   (prog        ((&whole 4 &rest 1) &rest lisp-indent-tagbody))
	   (prog* . prog)
	   (prog1 1)

21102:363bd52feeb2

	   (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))

	   (macrolet . flet)
	   ;; `else-body' style
	   (if          (nil nil &body))
	   ;; single-else style (then and else equally indented)
	   (if          (&rest nil))
	   ;; (lambda     ((&whole 4 &rest 1) &body))
	   (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) ;barf
	   (locally 1)
	   ;(loop ...)
	   (multiple-value-bind 
			((&whole 6 &rest 1) 4 &body))
	   (multiple-value-call
			(4 &body))
	   (multiple-value-prog1 1)
	   (multiple-value-setq
			(4 2))
	   (multiple-value-setf . multiple-value-setq)
	   ;; Combines the worst features of BLOCK, LET and TAGBODY
	   (prog        ((&whole 4 &rest 1) &rest lisp-indent-tagbody))
	   (prog* . prog)
	   (prog1 1)