Reimplement slot writing.

darcs-hash:54a65f96e6367f42013fef524eeddbeb4b8889ec

1 files changed, 8 insertions, 3 deletions

diff --git a/Lisp/libobjcl.lisp b/Lisp/libobjcl.lisp
index f28d4b8..f68838c 100644
--- a/Lisp/libobjcl.lisp
+++ b/Lisp/libobjcl.lisp
@@ -33,6 +33,11 @@
 (use-foreign-library libobjcl)
 
 
+(defcfun ("objcl_memmove" memmove) :pointer
+  (destination :pointer)
+  (source :pointer)
+  (length :unsigned-long))
+
 (defcfun ("objcl_initialise_runtime" %initialise-runtime) :void)
 
 (defcfun ("objcl_shutdown_runtime" %shutdown-runtime) :void)
@@ -873,13 +878,13 @@ separating parts by hyphens works nicely in all of the `:INVERT`,
 
 ;;;; (@* "Helper functions")
 (defun sizeof (typespec)
-  (%objcl-sizeof-type typespec))
+  (%objcl-sizeof-type (print-typespec-to-string typespec)))
 
 (defun alignof (typespec)
-  (%objcl-alignof-type typespec))
+  (%objcl-alignof-type (print-typespec-to-string typespec)))
 
 (defun return-type-sizeof (typespec)
-  (%objcl-sizeof-return-type typespec))
+  (%objcl-sizeof-return-type (print-typespec-to-string typespec)))
 
 (defun runtime-type ()
   (let ((runtime (%objcl-get-runtime-type)))