Skip to content
logging.lisp 522 B
Newer Older
#+xcvb (module (:depends-on ("specials")))

(in-package :xcvb)

(defun log-format (required-verbosity format &rest args)
Francois-Rene Rideau's avatar
Francois-Rene Rideau committed
  (when (>= (or *xcvb-verbosity* 5) required-verbosity)
    (fresh-line *error-output*)
    (apply #'format *error-output* format args)
    (fresh-line *error-output*)
    (force-output *error-output*)) ; more than useful on single-threaded-ccl

(defun log-format-pp (require-verbosity format &rest args)
  (let ((*print-pretty* t))
Francois-Rene Rideau's avatar
Francois-Rene Rideau committed
    (apply 'log-format require-verbosity format args)))