kmx.io/cl-thot/msg.lisp

Branch

Show log
Commit
Hash : 6b7623d9
Author : Thomas de Grivel
Date : 2018-06-17T17:01:43

fresh-line for msg

msg.lisp


(in-package :thot)

(defmacro msg (level &rest parts)
  `(progn
     (fresh-line)
     (write-str *standard-output*
                ,(symbol-name level)
                #\Space
                ,@parts
                #\Newline)
     (force-output)))