From be740b5618753fff918f75df293081a7560891fd Mon Sep 17 00:00:00 2001 From: Matthias Andreas Benkard Date: Sun, 21 Jul 2013 12:05:46 +0200 Subject: LAMBDA: Give more precise descriptions of argument count errors. --- sb-eval2.lisp | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'sb-eval2.lisp') diff --git a/sb-eval2.lisp b/sb-eval2.lisp index f1aef25..7770222 100644 --- a/sb-eval2.lisp +++ b/sb-eval2.lisp @@ -603,8 +603,8 @@ missing-optionals (unless (>= argi required-num) (error 'sb-int:simple-program-error - :format-control "invalid number of arguments: ~D" - :format-arguments (list (length args)))) + :format-control "invalid number of arguments: ~D (expected: >=~D)" + :format-arguments (list (length args) required-num))) (when (>= i (the fixnum (+ required-num optional-num))) (go rest)) @@ -625,8 +625,8 @@ (unless keyp (unless (or restp (= argi (length args))) (error 'sb-int:simple-program-error - :format-control "invalid number of arguments: ~D" - :format-arguments (list (length args)))) + :format-control "invalid number of arguments: ~D (expected: <=~D)" + :format-arguments (list (length args) (+ required-num optional-num)))) (go aux)) (unless (evenp restnum) (error 'sb-int:simple-program-error -- cgit v1.2.3