0.pre7.136:

[sbcl.git] / src / compiler / ir1tran.lisp

diff --git a/src/compiler/ir1tran.lisp b/src/compiler/ir1tran.lisp
index c6d14e7..6d07722 100644 (file)
--- a/src/compiler/ir1tran.lisp
+++ b/src/compiler/ir1tran.lisp
@@ -1620,7 +1620,7 @@
 
            (body
             `(when (oddp ,n-count)
-               (%odd-key-arguments-error)))
+               (%odd-key-args-error)))
 
            (body
             `(locally
@@ -1635,7 +1635,7 @@
 
            (unless allowp
              (body `(when (and ,n-losep (not ,n-allowp))
-                      (%unknown-key-argument-error ,n-losep)))))))
+                      (%unknown-key-arg-error ,n-losep)))))))
 
       (let ((ep (ir1-convert-lambda-body
                 `((let ,(temps)