WARN should accept FORMAT-like arguments.

[jscl.git] / src / print.lisp

diff --git a/src/print.lisp b/src/print.lisp
index a540357..004b540 100644 (file)
--- 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))