diff options
author | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-02-17 12:46:23 +0100 |
---|---|---|
committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-02-17 12:46:23 +0100 |
commit | 061a969f39f50c365369e28b5182d547f81ee11d (patch) | |
tree | ff3f5b07fc26b41637befffe53068c8e84a0e197 /Lisp/class-definition.lisp | |
parent | 0c4aa479a72e2c41f775b5874e6d14b986a3c8a8 (diff) |
Implement OBJCL-CREATE-CLASS.
darcs-hash:410094108d1b68697e4bf6c40a92e0d4dfceedba
Diffstat (limited to 'Lisp/class-definition.lisp')
-rw-r--r-- | Lisp/class-definition.lisp | 24 |
1 files changed, 10 insertions, 14 deletions
diff --git a/Lisp/class-definition.lisp b/Lisp/class-definition.lisp index a4fb022..11d3767 100644 --- a/Lisp/class-definition.lisp +++ b/Lisp/class-definition.lisp @@ -225,20 +225,16 @@ (typep c 'foreign-direct-slot-definition)) direct-slots)) (new-class-pointer - (%objcl-create-class (symbol->objc-class-name name) - (pointer-to (find-if - #'(lambda (c) - (typep c 'objective-c-class)) - direct-superclasses)) - 0 - (null-pointer) - (length ivars) - (mapcar #'slot-definition-foreign-name - ivars) - (mapcar #'(lambda (x) - (print-typespec-to-string - (slot-definition-foreign-type x))) - ivars))) + (objcl-create-class (symbol->objc-class-name name) + (find-if #'(lambda (c) + (typep c 'objective-c-class)) + direct-superclasses) + nil + (mapcar #'slot-definition-foreign-name + ivars) + (mapcar #'(lambda (x) + (slot-definition-foreign-type x)) + ivars))) (metaclass (ensure-class name :metaclass (class-of (class-of superclass)) |