Custom Query (1030 matches)

The following code signals an error about the :sign keyword argument. The culprit seems to be the method on T, which prevents the method on list to run. If I omit the method on T, or I define it e.g. on built-in-class, the error is gone.

(defgeneric render (obj &rest args))

(defmethod render ((obj t) &key)
  (print obj))

(defmethod render ((obj list) &rest args)
  (mapc (lambda (item)
          (apply #'render item args))
        obj))

(defmethod render ((obj number) &key sign)
  (print (* sign obj)))

(render (list 1 2 3 4) :sign -1)

According to my reading of CLHS (7.6.4 & 7.6.5), no error should be signaled. Indeed, I have tested this with SBCL and it runs just fine.

Occassionally, Clozure CL(PPC).app stops opening text/source files for editing (HemlockEditorDocuments) via the Open Panel. Restarting the app resolves the problem. I cannot reproduce the problem at will and no particular file is the culprit. It seems to do more with how long the app has been running. OSX 10.4.7 on a G4. Console backtrace is attached.

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