From 141460db9f2b0045b524f9d9160cd069ac274656 Mon Sep 17 00:00:00 2001
From: Olof-Joachim Frahm <olof@macrolet.net>
Date: Wed, 21 Aug 2013 20:03:51 +0200
Subject: [PATCH] WARN should accept FORMAT-like arguments.

---
 src/print.lisp |    5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/src/print.lisp b/src/print.lisp
index a540357..004b540 100644
--- a/src/print.lisp
+++ b/src/print.lisp
@@ -266,9 +266,10 @@
   (terpri)
   x)
 
-(defun warn (string)
+(defun warn (fmt &rest args)
   (write-string "WARNING: ")
-  (write-line string))
+  (apply #'format t fmt args)
+  (terpri))
 
 (defun print (x)
   (write-line (prin1-to-string x))
-- 
1.7.10.4