[Openmcl-devel] customizing the prompt

[R. Matthew Emerson]

The issue of customizing the prompt came up on IRC, and I pasted an example.

I reproduce it here so that it gets captured in the archives.

;; example of using ccl:*listener-prompt-format*

(defun my-prompt-formatter (stream break-level)
  (princ (package-name *package*) stream)
  (if (plusp break-level)
    (format stream " ~d > " break-level)
    (write-string "> " stream)))

(setq ccl:*listener-prompt-format* #'my-prompt-formatter)