X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fprint.lisp;h=004b540d3127addfe7e5140370c5fe08a47bf840;hb=141460db9f2b0045b524f9d9160cd069ac274656;hp=a54035747bd3ea73404f9ec0820caa81fdada386;hpb=a4ea8cefca32d80fb894106bb1f43677f587cdc4;p=jscl.git

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