Changeset 821

Timestamp:

Jun 5, 2004, 10:55:54 PM (20 years ago)

Author:

Gary Byers

Message:

:prompt-function takes an argument.

File:

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

trunk/ccl/lib/describe.lisp

@@ -2039 +2039 @@
          (ccl::with-toplevel-commands :tty-inspect
            (ccl::read-loop
-            :prompt-function #'(lambda ()
+            :prompt-function #'(lambda (stream)
                                  (if (eql level 0)
-                                   (format t "~&Inspect> ")
-                                   (format t "~&Inspect ~d> " level))))))
+                                   (format stream "~&Inspect> ")
+                                   (format stream "~&Inspect ~d> " level))))))
      (exit-inspector () (terpri *debug-io*)))))