projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.6.11.13:
[sbcl.git]
/
src
/
compiler
/
eval-comp.lisp
diff --git
a/src/compiler/eval-comp.lisp
b/src/compiler/eval-comp.lisp
index
0ef617a
..
7e7fa0f
100644
(file)
--- 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
#|
%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)
|#
(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)))
: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
(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))
:format-arguments nil))
-(defun %unknown-keyword-argument-error (keyword)
+(defun %unknown-key-argument-error (key-arg-name)
(error 'simple-program-error
(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 ())
(defun %cleanup-point ())