diff options
| author | Matthias Benkard <code@mail.matthias.benkard.de> | 2007-08-12 19:41:02 +0200 |
|---|---|---|
| committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2007-08-12 19:41:02 +0200 |
| commit | 048c5db4f7a732376f0a4526502e012a0f29e0c7 (patch) | |
| tree | 69a9bf3e80fd9e633cfeaf925e4ab5379bed21d2 /Lisp/type-conversion.lisp | |
| parent | dac89d30fa1e9eabcde3d522a6c5ca0471cce3b1 (diff) | |
Code cleanup, fix a couple of memory leaks.
darcs-hash:629e2764a4ce319c9a7d9bc3a22e6f254633c73f
Diffstat (limited to 'Lisp/type-conversion.lisp')
| -rw-r--r-- | Lisp/type-conversion.lisp | 4 |
1 files changed, 2 insertions, 2 deletions
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))))) |