comparison lisp/emacs-lisp/cl-indent.el @ 27802:3cb58ebdc2fa

Remove bogus spec for define-condition.

27801:1f07581a92ea


(let ((l '((block 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)))
	   (defvar      (4 2 2))
	   (defclass    ((&whole 4 &rest (&whole 2 &rest 1))
			 &rest (&whole 2 &rest 1)))
	   (defconstant . defvar)
           (defcustom   (4 2 2 2))
	   (defparameter . defvar)
	   (define-condition ((1 6)
			      (2 6 ((&whole 1)))
			      (3 4 ((&whole 1)))
			      (4 &body)))
	   (define-modify-macro
			(4 &body))
	   (defsetf     (4 &lambda 4 &body))
	   (defun       (4 &lambda &body))
	   (define-setf-method . defun)

27802:3cb58ebdc2fa


(let ((l '((block 1)
	   (case        (4 &rest (&whole 2 &rest 1)))
	   (ccase . case) (ecase . case)
	   (condition-case ((1 4) (&whole 2 ((0 1) (1 3) (2 &body)))))
	   (typecase . case) (etypecase . case) (ctypecase . case)
	   (catch 1)
	   (cond        (&rest (&whole 2 &rest 1)))
	   (defvar      (4 2 2))
	   (defclass    ((&whole 4 &rest (&whole 2 &rest 1))
			 &rest (&whole 2 &rest 1)))
	   (defconstant . defvar)
           (defcustom   (4 2 2 2))
	   (defparameter . defvar)
	   (define-modify-macro
			(4 &body))
	   (defsetf     (4 &lambda 4 &body))
	   (defun       (4 &lambda &body))
	   (define-setf-method . defun)