Changeset 11162 for trunk/source/lib/describe.lisp

Timestamp:

Oct 18, 2008, 7:17:56 PM (12 years ago)

Author:

gz

Message:

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

File:

• trunk/source/lib/describe.lisp (modified) (1 diff)

trunk/source/lib/describe.lisp

@@ -1868 +1868 @@
 
 (defmethod ui-interact ((ui inspector-tty-ui))
-  (let* ((level (inspector-ui-level ui)))
+  (let* ((level (inspector-ui-level ui))
+         (ccl::*default-integer-command* `(:i 0 ,(1- (compute-line-count (inspector-ui-inspector ui))))))
+    (declare (special ccl::*default-integer-command*))
     (restart-case
         (ccl:with-terminal-input