Fix ENSURE-OBJECTIVE-C-CLASS-PAIR.

darcs-hash:cd2b28bb4e252e25afb6807e32d092fcbd9c0977

1 files changed, 9 insertions, 6 deletions

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)