X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Fboot.lisp;h=1c9b4fee10c31ab2d3f32da9c9baedaca249c70e;hb=ef11b09c41b1e344212f6a363892a849af7ff94e;hp=09540118490f89a1b7055af4146a21cb740726f7;hpb=1250e993756076f6e12a6459983d9a953529ff96;p=sbcl.git

diff --git a/src/pcl/boot.lisp b/src/pcl/boot.lisp
index 0954011..1c9b4fe 100644
--- a/src/pcl/boot.lisp
+++ b/src/pcl/boot.lisp
@@ -239,7 +239,11 @@ bootstrapping.
   (flet ((ensure (arg ok)
            (unless ok
 	     (error
-	      "invalid argument ~S in the generic function lambda list ~S"
+	      ;; (s/invalid/non-ANSI-conforming/ because the old PCL
+	      ;; implementation allowed this, so people got used to
+	      ;; it, and maybe this phrasing will help them to guess
+	      ;; why their program which worked under PCL no longer works.)
+	      "~@<non-ANSI-conforming argument ~S ~_in the generic function lambda list ~S~:>"
 	      arg lambda-list))))
     (multiple-value-bind (required optional restp rest keyp keys allowp
                           auxp aux morep more-context more-count)