X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Feval-comp.lisp;h=7e7fa0fcefc76fcdc8ac5d651ccf2b7a5084c19d;hb=ce02ab2ecd9c6ae2e570abd8c93ebf3be55bbdad;hp=0ef617a6c4a51db01567c1016a2740736316a37d;hpb=53e7a02c819090af8e6db7e47d29cdbb5296814f;p=sbcl.git

diff --git a/src/compiler/eval-comp.lisp b/src/compiler/eval-comp.lisp
index 0ef617a..7e7fa0f 100644
--- a/src/compiler/eval-comp.lisp
+++ b/src/compiler/eval-comp.lisp
@@ -235,7 +235,7 @@
 
 #|
 %listify-rest-args %more-arg %verify-argument-count %argument-count-error
-%odd-keyword-arguments-error %unknown-keyword-argument-error
+%odd-key-arguments-error %unknown-key-argument-error
 |#
 
 (defun %verify-argument-count (supplied-args defined-args)
@@ -266,15 +266,15 @@
 	 :format-control "wrong number of arguments passed: ~S"
 	 :format-arguments (list args-passed-count)))
 
-(defun %odd-keyword-arguments-error ()
+(defun %odd-key-arguments-error ()
   (error 'simple-program-error
-	 :format-control "function called with odd number of keyword arguments"
+	 :format-control "function called with odd number of &KEY arguments"
 	 :format-arguments nil))
 
-(defun %unknown-keyword-argument-error (keyword)
+(defun %unknown-key-argument-error (key-arg-name)
   (error 'simple-program-error
-	 :format-control "unknown keyword argument: ~S"
-	 :format-arguments (list keyword)))
+	 :format-control "unknown &KEY argument: ~S"
+	 :format-arguments (list key-arg-name)))
 
 (defun %cleanup-point ())