Commit 3d8700e8 authored by Dave Love's avatar Dave Love
Browse files

Remove bogus spec for define-condition.

parent 130adcb7
...@@ -377,6 +377,7 @@ by `lisp-body-indent'." ...@@ -377,6 +377,7 @@ by `lisp-body-indent'."
(let ((l '((block 1) (let ((l '((block 1)
(case (4 &rest (&whole 2 &rest 1))) (case (4 &rest (&whole 2 &rest 1)))
(ccase . case) (ecase . case) (ccase . case) (ecase . case)
(condition-case ((1 4) (&whole 2 ((0 1) (1 3) (2 &body)))))
(typecase . case) (etypecase . case) (ctypecase . case) (typecase . case) (etypecase . case) (ctypecase . case)
(catch 1) (catch 1)
(cond (&rest (&whole 2 &rest 1))) (cond (&rest (&whole 2 &rest 1)))
...@@ -386,10 +387,6 @@ by `lisp-body-indent'." ...@@ -386,10 +387,6 @@ by `lisp-body-indent'."
(defconstant . defvar) (defconstant . defvar)
(defcustom (4 2 2 2)) (defcustom (4 2 2 2))
(defparameter . defvar) (defparameter . defvar)
(define-condition ((1 6)
(2 6 ((&whole 1)))
(3 4 ((&whole 1)))
(4 &body)))
(define-modify-macro (define-modify-macro
(4 &body)) (4 &body))
(defsetf (4 &lambda 4 &body)) (defsetf (4 &lambda 4 &body))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment