Custom Query (1030 matches)

Suggestion Option-click close or hide on Hemlock window button would be useful. This to close or hide all windows of that type. Useful to clear clutter such as closing many inspector windows, or some other window of a type, but not closing any other windows. The same window type operations for any window type in the CCL API.

At the moment, option-click window close button closes all visible CCL windows. Unsure how this tallies with ​http://support.apple.com/kb/HT1343

It would be nice if one could clear the console somehow. I like to be able to start with a blank slate so that I can see only new console output from this point on.

The following should be done at some point.

(in-package "CCL")

(defun remove-extra-symbol-binding-indices ()
 (let* ((n 0))
   (do-all-symbols (s n)
     (let* ((bits (%symbol-bits s))
            (idx (symbol-binding-index s)))
       (unless (zerop idx)
         (unless (and
                  (not (or (logbitp $sym_vbit_const bits)
                           (logbitp $sym_vbit_global bits)))
                  (or (logbitp $sym_vbit_special bits)
                      (let* ((name (symbol-name s))
                             (len (length name)))
                        (and (> len 1)
                             (let* ((initial (schar name 0))
                                    (final (schar name (1- len))))
                               (and (eql initial final)
                                    (or (and (eql initial #\*))
                                        (eql initial #\%))))))))
           (incf n)
           ;; Pretend that the symbol is DEFGLOBALED, to
           ;; persuade ENSURE-BINDING-INDEX to remove
           ;; the symbol from its inverse mapping.
           (%symbol-bits s (logior $sym_vbit_global bits))
           (ensure-binding-index s)
           (%symbol-bits s bits)))))))

Doing:

1) update to the current trunk, especially including the changes to nfcomp.lisp
  in r13745.  Rebuild the image with these changes in effect.

2) In a new image, note that

? (ccl::next-binding-index)

returns a value likely > 13000, then call REMOVE-EXTRA-SYMBOL-BINDING-INDICES
and do a full/clean rebuild.  Quit and load the (new) new image.

3) In that (new) new image, (ccl::next-binding-index) should return ~900.