diff options
| author | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-02-18 23:08:35 +0100 |
|---|---|---|
| committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-02-18 23:08:35 +0100 |
| commit | 0a587207161a7f5d556c1f8a165938770f73fd78 (patch) | |
| tree | fccc550f2e88a68e40992d71cf93e5e985c8243f /Lisp/class-definition.lisp | |
| parent | 0df0f866402d12592c277c9ebbfd0cf374bc490a (diff) | |
Fix Objective-C class registration.
darcs-hash:03e58bd27621a0bf46f05cc1ee733da1c7ab1170
Diffstat (limited to 'Lisp/class-definition.lisp')
| -rw-r--r-- | Lisp/class-definition.lisp | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/Lisp/class-definition.lisp b/Lisp/class-definition.lisp index ff091a9..6ecb189 100644 --- a/Lisp/class-definition.lisp +++ b/Lisp/class-definition.lisp @@ -340,7 +340,7 @@ (defmethod make-instance :before ((class objective-c-class) &key &allow-other-keys) - (unless (typep class 'objective-c-meta-class) + (unless (subtypep class 'objective-c-meta-class) (foreign-class-ensure-registered class))) @@ -348,6 +348,7 @@ (with-exclusive-access (class) (unless (foreign-class-registered-p class) (setf (foreign-class-registered-p class) t) + (%objcl-finalise-class (pointer-to (class-of class))) (%objcl-finalise-class (pointer-to class)))) class) |