From 048c5db4f7a732376f0a4526502e012a0f29e0c7 Mon Sep 17 00:00:00 2001 From: Matthias Benkard Date: Sun, 12 Aug 2007 19:41:02 +0200 Subject: Code cleanup, fix a couple of memory leaks. darcs-hash:629e2764a4ce319c9a7d9bc3a22e6f254633c73f --- Lisp/type-conversion.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'Lisp/type-conversion.lisp') diff --git a/Lisp/type-conversion.lisp b/Lisp/type-conversion.lisp index a11a668..bba40e7 100644 --- a/Lisp/type-conversion.lisp +++ b/Lisp/type-conversion.lisp @@ -12,7 +12,7 @@ (typecase value ((or id objc-class selector exception) (pointer-to value)) - (string (foreign-string-alloc value)) + (string (foreign-string-alloc value)) (otherwise value))) (setf type (foreign-string-alloc (type-name->type-id type-name)))) @@ -31,7 +31,7 @@ (case lisp-type ((id objc-class selector exception) (make-instance lisp-type :pointer value)) - ((string) (foreign-string-to-lisp value)) + ((string) (foreign-string-to-lisp value)) (otherwise value))))) -- cgit v1.2.3