X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftarget-format.lisp;h=bbf357d56d05bae4cb64cfa0e81232004e16eaef;hb=eaec8176060e89efa39f01017df1f6204e491ecc;hp=8478a221fb1afc119d85e3528f4ba8031718d281;hpb=b76a2a89806c3a86c171c436dc3f3b6ff1acfa82;p=sbcl.git

diff --git a/src/code/target-format.lisp b/src/code/target-format.lisp
index 8478a22..bbf357d 100644
--- a/src/code/target-format.lisp
+++ b/src/code/target-format.lisp
@@ -51,6 +51,12 @@
      (%format destination control-string format-arguments)
      nil)))
 
+(define-compiler-macro format (&whole form destination control &rest args)
+  (declare (ignore control args))
+  (when (stringp destination)
+    (warn "Literal string as destination in FORMAT:~%  ~S" form))
+  form)
+
 (defun %format (stream string-or-fun orig-args &optional (args orig-args))
   (if (functionp string-or-fun)
       (apply string-or-fun stream args)