X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fltn.lisp;h=8b1ce48ae8d18ebd99a1eb9d3238531cbf64780d;hb=993d5b779638756473181dda8d928d33038d4cc3;hp=438102b160f780ab65be366065976c0ed6d187a0;hpb=41de6817aef4ccf69b0780969ad79e232c3a798c;p=sbcl.git

diff --git a/src/compiler/ltn.lisp b/src/compiler/ltn.lisp
index 438102b..8b1ce48 100644
--- a/src/compiler/ltn.lisp
+++ b/src/compiler/ltn.lisp
@@ -903,8 +903,8 @@
 			      (ir1-attributep (function-info-attributes info)
 					      recursive)))))
 	  (let ((*compiler-error-context* call))
-	    (compiler-warning "recursion in known function definition~2I ~
-                               ~_policy=~S ~_arg types=~S"
+	    (compiler-warning "~@<recursion in known function definition~2I ~
+                               ~_policy=~S ~_arg types=~S~:>"
 			      (lexenv-policy (node-lexenv call))
 			      (mapcar (lambda (arg)
 					(type-specifier (continuation-type