Custom Query (1030 matches)

GET-DISPATCH-MACRO-CHARACTER complains about a character not being a dispatch macro character even after that character was just made one by MAKE-DISPATCH-MACRO-CHARACTER.

Test case:

  (flet ((dispatch-macro-char-p (char &optional (rt *readtable*))
           (handler-case
               (prog1 t
                 (get-dispatch-macro-character char #\x rt))
             (error () nil))))
    (let ((*readtable* (copy-readtable nil)))
      (values (dispatch-macro-char-p #\$)
              (make-dispatch-macro-character #\$ nil)
              (dispatch-macro-char-p #\$))))

  Expected: NIL, T, T
  Actual:   NIL, T, NIL

Fix attached.

-T.

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