<html><body style="word-wrap: break-word; -webkit-nbsp-mode: space; -webkit-line-break: after-white-space; ">The search files tool crashes consistently when used twice in a row. There was an obvious array reference error in #/updateResults: which the code below fixes. The call to expand-all-results also occasionally caused an error (??), so I've commented it out.<div><br></div><div>I've submitted a ticket, but this fix may be useful until Clozure can take a look.</div><div><br></div><div><br></div><div>From ccl/cocoa-ide/search-files.lisp</div><div><br></div><div><br></div><div><div><div><font class="Apple-style-span" face="Monaco" size="3"><span class="Apple-style-span" style="font-size: 11px;"><div>(objc:defMethod (#/updateResults: :void) ((wc search-files-window-controller)</div><div><span class="Apple-tab-span" style="white-space:pre"> </span> msg)</div><div> (let* ((old-results (gui::search-results wc)))</div><div> (setf (gui::search-results wc) (gui::new-results wc))</div><div> ;; release NSString instances. sigh.</div><div> (dotimes (idx (length old-results))</div><div> (let* ((file (aref old-results idx))</div><div> (lines (when file (gui::search-result-file-lines file))))</div><div> (dotimes (idx (length lines))</div><div> (let* ((line (aref lines idx))</div><div> (string (when line (gui::search-result-line-nsstr line))))</div><div> (and string (#/release string))))</div><div> (and (gui::search-result-file-nsstr file)</div><div> (#/release (gui::search-result-file-nsstr file)))))</div><div> (gui::set-results-string wc msg)</div><div>; (when (or (auto-expandable-p (search-results wc))</div><div>;<span class="Apple-tab-span" style="white-space:pre"> </span> (expand-results-p wc))</div><div>; (expand-all-results wc))</div><div> (#/reloadData (gui::outline-view wc))</div><div> (#/setEnabled: (gui::search-button wc) t)))</div></span></font></div></div></div></body></html>