Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
closer
closer-mop
Commits
3c241b3f
Commit
3c241b3f
authored
Sep 10, 2005
by
Pascal Costanza
Browse files
Removed spurious &allow-other-keys declarations.
darcs-hash:87b02abfabbf534e03e82a45a96521a1d7c7a3b2
parent
a498c3cc
Changes
3
Hide whitespace changes
Inline
Side-by-side
lispworks/closer-mop.lisp
View file @
3c241b3f
...
...
@@ -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
...
...
mcl/closer-mop.lisp
View file @
3c241b3f
...
...
@@ -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
...
...
pcl/closer-mop.lisp
View file @
3c241b3f
...
...
@@ -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
)))
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment