From fedbfff7c5f7091e5e2b2d29d6ebf1a20349f60f Mon Sep 17 00:00:00 2001 From: Matthias Benkard Date: Tue, 19 Feb 2008 13:22:41 +0100 Subject: Reimplement slot writing. darcs-hash:54a65f96e6367f42013fef524eeddbeb4b8889ec --- Lisp/libobjcl.lisp | 11 ++++++++--- 1 file changed, 8 insertions(+), 3 deletions(-) (limited to 'Lisp/libobjcl.lisp') 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))) -- cgit v1.2.3