anchor.diff:  should be displayed.")
   
   (defun default-prompt ()
  +  "The default prompt function.
  +
  +If PS1 and PS2 are defined, they will be used as the prompt.
  +Otherwise, this function uses a generic prompt."
     (if *fresh-prompt*
         (let ((ps1 (env "PS1" nil)))
           (if ps1
  
positive.code:             (interpret-prompt-string ps2)
              "> "))))
  
  (defvar *prompt-function* 'default-prompt)
  
  (defun main-prompt ()
    "Return the string which should be displayed as the prompt for the
  
negative.code:   (:import-from :swank)
    (:import-from :fset)
    (:export
     #:main #:default-prompt #:*prompt-function* #:*fresh-prompt*))
  (in-package :shcl/shell/main)
  
  (optimization-settings)
  