X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Fwalk.lisp;h=db24948dc7c1a60d125fbca8e3db862ba9408bde;hb=ba38798a5ca26b90647a1993f348806cb32f2d1b;hp=6078fb64868894b2f15adbe5990682ee01681233;hpb=a8f0175b16a00f5fc83eb8d8a718ae7fc5497514;p=sbcl.git

diff --git a/src/pcl/walk.lisp b/src/pcl/walk.lisp
index 6078fb6..db24948 100644
--- a/src/pcl/walk.lisp
+++ b/src/pcl/walk.lisp
@@ -632,7 +632,7 @@
 
 (defun walk-unexpected-declare (form context env)
   (declare (ignore context env))
-  (warn "encountered DECLARE ~S in a place where a DECLARE was not expected"
+  (warn "encountered ~S ~_in a place where a DECLARE was not expected"
 	form)
   form)