Changeset 11162


Ignore:
Timestamp:
Oct 18, 2008, 7:17:56 PM (11 years ago)
Author:
gz
Message:

In tty inspector, let users just type <n> to inspect <n>th item

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/lib/describe.lisp

    r11131 r11162  
    18681868
    18691869(defmethod ui-interact ((ui inspector-tty-ui))
    1870   (let* ((level (inspector-ui-level ui)))
     1870  (let* ((level (inspector-ui-level ui))
     1871         (ccl::*default-integer-command* `(:i 0 ,(1- (compute-line-count (inspector-ui-inspector ui))))))
     1872    (declare (special ccl::*default-integer-command*))
    18711873    (restart-case
    18721874        (ccl:with-terminal-input
Note: See TracChangeset for help on using the changeset viewer.