Changeset 7808


Ignore:
Timestamp:
Dec 3, 2007, 11:30:04 AM (12 years ago)
Author:
gb
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/level-1/l1-readloop-lds.lisp

    r7225 r7808  
    307307    (dolist (val values) (write val :stream out) (terpri out))))
    308308
     309(defparameter *listener-prompt-format* "~[?~:;~:*~d>~] ")
     310
     311 
    309312(defun print-listener-prompt (stream &optional (force t))
    310313  (unless *quiet-flag*
    311314    (when (or force (neq *break-level* *last-break-level*))
    312315      (let* ((*listener-indent* nil))
    313         (fresh-line stream)           
    314         (if (%izerop *break-level*)
    315           (%write-string "?" stream)
    316           (format stream "~s >" *break-level*)))       
    317       (write-string " " stream)       
     316        (fresh-line stream)
     317        (format stream *listener-prompt-format* *break-level*))
    318318      (setq *last-break-level* *break-level*)))
    319319    (force-output stream))
Note: See TracChangeset for help on using the changeset viewer.