Changeset 7808

Timestamp:

Dec 3, 2007, 3:30:04 AM (17 years ago)

Author:

Gary Byers

Message:

Use *LISTENER-PROMPT-FORMAT*.in PRINT-LISTENER-PROMPT.

File:

• trunk/ccl/level-1/l1-readloop-lds.lisp (modified) (1 diff)

trunk/ccl/level-1/l1-readloop-lds.lisp

@@ -307 +307 @@
     (dolist (val values) (write val :stream out) (terpri out))))
 
+(defparameter *listener-prompt-format* "~[?~:;~:*~d>~] ")
+
+  
 (defun print-listener-prompt (stream &optional (force t))
   (unless *quiet-flag*
     (when (or force (neq *break-level* *last-break-level*))
       (let* ((*listener-indent* nil))
-        (fresh-line stream)            
-        (if (%izerop *break-level*)
-          (%write-string "?" stream)
-          (format stream "~s >" *break-level*)))        
-      (write-string " " stream)        
+        (fresh-line stream)
+        (format stream *listener-prompt-format* *break-level*))
       (setq *last-break-level* *break-level*)))
     (force-output stream))