From e7524b783a7e2219e16c64dde7a9f965b75ed970 Mon Sep 17 00:00:00 2001 From: Matthias Benkard Date: Mon, 6 Aug 2007 18:11:08 +0200 Subject: If necessary, deallocate a C string after converting it. darcs-hash:4f83783092400107dd9b58671d11d4cb6a9d5214 --- Lisp/libobjcl.lisp | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'Lisp/libobjcl.lisp') diff --git a/Lisp/libobjcl.lisp b/Lisp/libobjcl.lisp index b38aa6e..041ddf3 100644 --- a/Lisp/libobjcl.lisp +++ b/Lisp/libobjcl.lisp @@ -84,13 +84,13 @@ objects or classes, let alone send messages to them. (defcfun ("objcl_find_class" %objcl-find-class) :pointer (class-name :string)) -(defcfun ("objcl_class_name" %objcl-class-name) :string +(defcfun ("objcl_class_name" %objcl-class-name) :pointer (class obj-data)) (defcfun ("objcl_find_selector" %objcl-find-selector) :pointer (selector-name :string)) -(defcfun ("objcl_selector_name" %objcl-selector-name) :string +(defcfun ("objcl_selector_name" %objcl-selector-name) :pointer (selector obj-data)) @@ -169,13 +169,13 @@ conventional case for namespace identifiers in Objective C." (defun objcl-class-name (class) (declare (type (or objc-class id exception) class)) (with-foreign-conversion ((obj-data class)) - (%objcl-class-name obj-data))) + (foreign-string-to-lisp/dealloc (%objcl-class-name obj-data)))) (defun selector-name (selector) (declare (type selector selector)) (with-foreign-conversion ((obj-data selector)) - (%objcl-selector-name obj-data))) + (foreign-string-to-lisp/dealloc (%objcl-selector-name obj-data)))) (defun find-selector (selector-name) -- cgit v1.2.3