From 938a371de94ecbe2b4ccc72670dbfc8a68b50aa1 Mon Sep 17 00:00:00 2001 From: Matthias Benkard Date: Sun, 17 Feb 2008 14:17:53 +0100 Subject: Fix ENSURE-OBJECTIVE-C-CLASS-PAIR. darcs-hash:cd2b28bb4e252e25afb6807e32d092fcbd9c0977 --- Lisp/libobjcl.lisp | 15 +++++++++------ 1 file changed, 9 insertions(+), 6 deletions(-) (limited to 'Lisp/libobjcl.lisp') diff --git a/Lisp/libobjcl.lisp b/Lisp/libobjcl.lisp index 1364c58..47c39a9 100644 --- a/Lisp/libobjcl.lisp +++ b/Lisp/libobjcl.lisp @@ -57,6 +57,9 @@ (defcfun ("objcl_class_superclass" %objcl-class-superclass) :pointer (obj :pointer)) +(defcfun ("objcl_class_metaclass" %objcl-class-metaclass) :pointer + (obj :pointer)) + (defcfun ("objcl_find_selector" %objcl-find-selector) :pointer (selector-name :string)) @@ -768,12 +771,12 @@ separating parts by hyphens works nicely in all of the `:INVERT`, list) :pointer))) (%objcl-create-class class-name - (pointer-to superclass) - (length protocol-names) - %protocol-names - (length ivar-names) - %ivar-names - %ivar-typestrings))))) + (pointer-to superclass) + (length protocol-names) + %protocol-names + (length ivar-names) + %ivar-names + %ivar-typestrings))))) ;;; (@* "Low-level Data Conversion") (eval-when (:compile-toplevel :load-toplevel) -- cgit v1.2.3