X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fir1tran.lisp;h=74832d6a943c06894f54b858d33679ecad878255;hb=1394636aef3b85be4fb6ef4a5424115aa2022d99;hp=7d7b4be1483e1d8615f5ac28e964c5e7ef2ecfbd;hpb=08671cc8f003e0b1f9879635fa950c78f7bf40fe;p=sbcl.git

diff --git a/src/compiler/ir1tran.lisp b/src/compiler/ir1tran.lisp
index 7d7b4be..74832d6 100644
--- a/src/compiler/ir1tran.lisp
+++ b/src/compiler/ir1tran.lisp
@@ -1165,7 +1165,7 @@
   (unless (symbolp name)
     (compiler-error "The lambda variable ~S is not a symbol." name))
   (when (member name names-so-far :test #'eq)
-    (compiler-error "The variable ~S occurs more than once in the lambda-list."
+    (compiler-error "The variable ~S occurs more than once in the lambda list."
 		    name))
   (let ((kind (info :variable :kind name)))
     (when (or (keywordp name) (eq kind :constant))
@@ -1197,7 +1197,7 @@
 		   (eq (arg-info-kind info) :keyword)
 		   (eq (arg-info-key info) key))
 	  (compiler-error
-	   "The keyword ~S appears more than once in the lambda-list."
+	   "The keyword ~S appears more than once in the lambda list."
 	   key))))
     key))