diff options
| author | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-02-03 22:36:06 +0100 |
|---|---|---|
| committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-02-03 22:36:06 +0100 |
| commit | 046f4e6ecbe2cbef2079eb8a245895ff70238e92 (patch) | |
| tree | d0a213d6f7bb3bf5c49f12cb467110d276a7db41 /Lisp/class-definition.lisp | |
| parent | b7b5bd2d3ca7f3e339512582179e355d4df71293 (diff) | |
Automatically set Objective-C wrapper classes' superclasses.
darcs-hash:ef9a71b349ac03e3d80ed89c750f3dd82ad67630
Diffstat (limited to 'Lisp/class-definition.lisp')
| -rw-r--r-- | Lisp/class-definition.lisp | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/Lisp/class-definition.lisp b/Lisp/class-definition.lisp index ffeca02..e331d83 100644 --- a/Lisp/class-definition.lisp +++ b/Lisp/class-definition.lisp @@ -116,6 +116,17 @@ (let ((class (call-next-method))) class)) +#+(or) +(defmethod c2mop:class-direct-superclasses ((class objective-c-class)) + (list (objcl-class-superclass class))) + + +#+(or) +(defmethod shared-initialize :after ((class objective-c-class) + slot-names + &rest initargs) + ) + (defmethod initialize-instance ((class objective-c-class) &key documentation name |