From: Olof-Joachim Frahm <olof@macrolet.net>
Date: Wed, 21 Aug 2013 18:03:51 +0000 (+0200)
Subject: WARN should accept FORMAT-like arguments.
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=141460db9f2b0045b524f9d9160cd069ac274656;p=jscl.git

WARN should accept FORMAT-like arguments.
---

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))