Custom Query (1030 matches)

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)))

(dotimes (i 1000)
  (if (evenp i)
    (process-run-function
      "creator"
      (lambda ()
        (ignore-errors (delete-package :foo))
        (make-package :foo)))
    (process-run-function
      "user"
      (lambda ()
        (ignore-errors (intern "FOO" :foo))))))

Running this a time or two in an x8632 lisp results in errors of the form:

> Error: Fault during read of memory address #x-34F3EA94
> While executing: DELETE-PACKAGE, in process creator(1458).

It appears that delete-package reads/modifies %all-packages% without using the associated locks.