Custom Query (1030 matches)

This is compiling a fixnum test into the (incf y inc) for some reason.

? (defun test () (symbol-macrolet ((inc 0.5)) (loop with y = 0 do (incf y inc) while (< y 100))))
TEST
? (test)
> Error: value 0.5 is not of the expected type FIXNUM.
> While executing: TEST, in process listener(1).
> Type :POP to abort, :R for a list of available restarts.
> Type :? for other options.
1 > 

(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.

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