RailsOnLisp/thot/msg.lisp

Branch

Thomas de Grivel 6b7623d91 2018-06-17T17:01:43
fresh-line for msg
1
2
3
4
5
6
7
8
9
10
11
12

(in-package :thot)

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