diff options
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 |