diff options
Diffstat (limited to 'Lisp/class-definition.lisp')
-rw-r--r-- | Lisp/class-definition.lisp | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/Lisp/class-definition.lisp b/Lisp/class-definition.lisp index 049d521..45e6956 100644 --- a/Lisp/class-definition.lisp +++ b/Lisp/class-definition.lisp @@ -40,6 +40,11 @@ ()) +(defmethod c2mop:validate-superclass ((class objective-c-meta-class) + (superclass standard-class)) + t) + + (defmethod c2mop:direct-slot-definition-class ((class objective-c-class) &rest initargs) (if (some #'(lambda (symbol) (let ((nada '#:nada)) @@ -160,5 +165,5 @@ (nothing :accessor ns-string-nothing :initarg :ns-string :initform 100)) - (:metaclass objective-c-class) + (:metaclass objective-c-classes::%ns-string) (:wrapped-foreign-class "NSString")) |