Custom Query (1030 matches)

(defun nil ()) expands to

(ccl::%defun (ccl::nfunction nil (lambda nil (block nil))) 'nil)

And call to

(ccl::dbg (ccl::nfunction nil (lambda ())))

from %defun brings CCL to the kernel debugger.

From ​http://www.lispforum.com/viewtopic.php?f=2&t=486#p3216

(with-open-file (f "f" :direction :output :external-format :utf-16) (write "abc" :stream f))

(with-open-file (f "f" :direction :input :external-format :utf-16) (read f))

On Windows XP, this returns a symbol with a weird pname (containing #\u+feff).

It works as expected on Darwin/x86.

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.

This is not the same problem as ticket #456

From ccl/cocoa-ide/search-files.lisp

(objc:defMethod (#/updateResults: :void) ((wc search-files-window-controller)

msg)

(let* ((old-results (search-results wc)))

(setf (search-results wc) (new-results wc)) ;; release NSString instances. sigh. (dotimes (idx (length old-results))

(let* ((file (aref old-results idx))

(lines (when file (search-result-file-lines file))))

(dotimes (idx (length lines))

(let* ((line (aref lines idx))

(string (when line (search-result-line-nsstr line))))

(and string (#/release string))))

(and (search-result-file-nsstr file)

(#/release (search-result-file-nsstr file)))))

(set-results-string wc msg)

; (when (or (auto-expandable-p (search-results wc)) ; (expand-results-p wc)) ; (expand-all-results wc))

(#/reloadData (outline-view wc)) (#/setEnabled: (search-button wc) t)))