Changeset 14265

Timestamp:

Sep 16, 2010, 10:11:32 AM (14 years ago)

Author:

R. Matthew Emerson

Message:

In lisp-string-from-nsstring-substring, don't release already
autoreleased substring instance.

File:

• trunk/source/objc-bridge/objc-support.lisp (modified) (1 diff)

trunk/source/objc-bridge/objc-support.lisp

@@ -512 +512 @@
 (defun lisp-string-from-nsstring-substring (nsstring start length)
   (let* ((substring (#/substringWithRange: nsstring (ns:make-ns-range start length))))
-    (prog1
-        (lisp-string-from-nsstring substring)
-      (#/release substring))))
+    (lisp-string-from-nsstring substring)))
 
 (def-standard-initial-binding *listener-autorelease-pool* nil)