From 061a969f39f50c365369e28b5182d547f81ee11d Mon Sep 17 00:00:00 2001 From: Matthias Benkard Date: Sun, 17 Feb 2008 12:46:23 +0100 Subject: Implement OBJCL-CREATE-CLASS. darcs-hash:410094108d1b68697e4bf6c40a92e0d4dfceedba --- Lisp/class-definition.lisp | 24 ++++++++++-------------- 1 file changed, 10 insertions(+), 14 deletions(-) (limited to 'Lisp/class-definition.lisp') 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)) -- cgit v1.2.3