Mercurial > emacs
comparison lisp/emacs-lisp/cl-indent.el @ 27802:3cb58ebdc2fa
Remove bogus spec for define-condition.
author | Dave Love <fx@gnu.org> |
---|---|
date | Tue, 22 Feb 2000 11:52:25 +0000 |
parents | 343886f78d1a |
children | 277f4365f2fa |
comparison
equal
deleted
inserted
replaced
27801:1f07581a92ea | 27802:3cb58ebdc2fa |
---|---|
375 | 375 |
376 | 376 |
377 (let ((l '((block 1) | 377 (let ((l '((block 1) |
378 (case (4 &rest (&whole 2 &rest 1))) | 378 (case (4 &rest (&whole 2 &rest 1))) |
379 (ccase . case) (ecase . case) | 379 (ccase . case) (ecase . case) |
380 (condition-case ((1 4) (&whole 2 ((0 1) (1 3) (2 &body))))) | |
380 (typecase . case) (etypecase . case) (ctypecase . case) | 381 (typecase . case) (etypecase . case) (ctypecase . case) |
381 (catch 1) | 382 (catch 1) |
382 (cond (&rest (&whole 2 &rest 1))) | 383 (cond (&rest (&whole 2 &rest 1))) |
383 (defvar (4 2 2)) | 384 (defvar (4 2 2)) |
384 (defclass ((&whole 4 &rest (&whole 2 &rest 1)) | 385 (defclass ((&whole 4 &rest (&whole 2 &rest 1)) |
385 &rest (&whole 2 &rest 1))) | 386 &rest (&whole 2 &rest 1))) |
386 (defconstant . defvar) | 387 (defconstant . defvar) |
387 (defcustom (4 2 2 2)) | 388 (defcustom (4 2 2 2)) |
388 (defparameter . defvar) | 389 (defparameter . defvar) |
389 (define-condition ((1 6) | |
390 (2 6 ((&whole 1))) | |
391 (3 4 ((&whole 1))) | |
392 (4 &body))) | |
393 (define-modify-macro | 390 (define-modify-macro |
394 (4 &body)) | 391 (4 &body)) |
395 (defsetf (4 &lambda 4 &body)) | 392 (defsetf (4 &lambda 4 &body)) |
396 (defun (4 &lambda &body)) | 393 (defun (4 &lambda &body)) |
397 (define-setf-method . defun) | 394 (define-setf-method . defun) |