Changeset 14265


Ignore:
Timestamp:
Sep 16, 2010, 5:11:32 PM (9 years ago)
Author:
rme
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/objc-bridge/objc-support.lisp

    r14263 r14265  
    512512(defun lisp-string-from-nsstring-substring (nsstring start length)
    513513  (let* ((substring (#/substringWithRange: nsstring (ns:make-ns-range start length))))
    514     (prog1
    515         (lisp-string-from-nsstring substring)
    516       (#/release substring))))
     514    (lisp-string-from-nsstring substring)))
    517515
    518516(def-standard-initial-binding *listener-autorelease-pool* nil)
Note: See TracChangeset for help on using the changeset viewer.