diff options
| author | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-02-06 21:23:01 +0100 |
|---|---|---|
| committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-02-06 21:23:01 +0100 |
| commit | 3f06b3a67a1d2ca8ef3eafffb4d67bd8b0ae47e8 (patch) | |
| tree | b994e87e4e100ae977790a931496ffa7ab370d08 /Lisp/class-definition.lisp | |
| parent | 3ffee49d000d27f9af5e74fef540ab345ead4332 (diff) | |
Assign a fake metaclass as a metaclass to the root metaclass.
darcs-hash:e594ffa7fa03edfdbfd4f44708c2a1863c96a2af
Diffstat (limited to 'Lisp/class-definition.lisp')
| -rw-r--r-- | Lisp/class-definition.lisp | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/Lisp/class-definition.lisp b/Lisp/class-definition.lisp index 54af234..85f3eb6 100644 --- a/Lisp/class-definition.lisp +++ b/Lisp/class-definition.lisp @@ -215,9 +215,8 @@ ;; add them to our :DIRECT-SLOTS keyword argument. (let ((key-args (copy-list args))) (dolist (objc-slot (objcl-class-direct-slots/pointer pointer)) - (pushnew (list :name (intern (foreign-slot-name->slot-name - (objcl-slot-name objc-slot)) - (find-package '#:objective-c-classes)) + (pushnew (list :name (foreign-slot-name->slot-name + (objcl-slot-name objc-slot)) :foreign-name (objcl-slot-name objc-slot) :foreign-type (parse-typespec (objcl-slot-type objc-slot))) (getf key-args :direct-slots) |