Commit 3c241b3f authored by Pascal Costanza's avatar Pascal Costanza
Browse files

Removed spurious &allow-other-keys declarations.

darcs-hash:87b02abfabbf534e03e82a45a96521a1d7c7a3b2
parent a498c3cc
......@@ -115,10 +115,8 @@
;; - Removal of direct subclasses.
(cl:defmethod initialize-instance :around
((class standard-class)
&rest initargs
&key (direct-superclasses ())
&allow-other-keys)
((class standard-class) &rest initargs
&key (direct-superclasses ()))
(declare (dynamic-extent initargs))
(apply #'call-next-method class
:direct-superclasses (modify-superclasses direct-superclasses)
......@@ -126,10 +124,8 @@
initargs))
(cl:defmethod reinitialize-instance :around
((class standard-class)
&rest initargs
&key (direct-superclasses () direct-superclasses-p)
&allow-other-keys)
((class standard-class) &rest initargs
&key (direct-superclasses () direct-superclasses-p))
(declare (dynamic-extent initargs))
(when direct-superclasses-p
(setq direct-superclasses (modify-superclasses direct-superclasses))
......@@ -146,10 +142,8 @@
initargs)))
(cl:defmethod initialize-instance :around
((class funcallable-standard-class)
&rest initargs
&key (direct-superclasses ())
&allow-other-keys)
((class funcallable-standard-class) &rest initargs
&key (direct-superclasses ()))
(declare (dynamic-extent initargs))
(apply #'call-next-method class
:direct-superclasses (modify-superclasses direct-superclasses nil)
......@@ -157,10 +151,8 @@
initargs))
(cl:defmethod reinitialize-instance :around
((class funcallable-standard-class)
&rest initargs
&key (direct-superclasses () direct-superclasses-p)
&allow-other-keys)
((class funcallable-standard-class) &rest initargs
&key (direct-superclasses () direct-superclasses-p))
(declare (dynamic-extent initargs))
(when direct-superclasses-p
(setq direct-superclasses (modify-superclasses direct-superclasses nil))
......@@ -183,10 +175,8 @@
(cl:defmethod change-class :around
((class forward-referenced-class)
(new-class funcallable-standard-class)
&rest initargs
&key (direct-superclasses ())
&allow-other-keys)
(new-class funcallable-standard-class) &rest initargs
&key (direct-superclasses ()))
(declare (dynamic-extent initargs))
(apply #'call-next-method class new-class
:optimize-slot-access nil
......
......@@ -63,11 +63,8 @@
(remove standard-object direct-superclasses)))))
(cl:defmethod initialize-instance :around
((class standard-class)
&rest initargs
&key (name (gensym))
(direct-superclasses ())
&allow-other-keys)
((class standard-class) &rest initargs
&key (name (gensym)) (direct-superclasses ()))
(declare (dynamic-extent initargs))
(apply #'call-next-method class
:name name
......@@ -75,10 +72,8 @@
initargs))
(cl:defmethod reinitialize-instance :around
((class standard-class)
&rest initargs
&key (direct-superclasses () direct-superclasses-p)
&allow-other-keys)
((class standard-class) &rest initargs
&key (direct-superclasses () direct-superclasses-p))
(declare (dynamic-extent initargs))
(if direct-superclasses-p
(apply #'call-next-method class
......
......@@ -75,10 +75,8 @@
;; potentially anonymous.
(cl:defmethod initialize-instance :around
((class standard-class)
&rest initargs
&key (name (gensym))
&allow-other-keys)
((class standard-class) &rest initargs
&key (name (gensym)))
(declare (dynamic-extent initargs))
(prog1 (apply #'call-next-method class :name name initargs)
(modify-accessors class)))
......
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