From 2bb0c1b4435d26bcee44438a2a9facff10b6035b Mon Sep 17 00:00:00 2001 From: jjgarcia Date: Mon, 1 Sep 2008 19:09:05 +0000 Subject: [PATCH] Fix missing let binding (Josh Elsasser) --- src/cmp/cmpenv.lsp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/cmp/cmpenv.lsp b/src/cmp/cmpenv.lsp index 5cad5fc12..efe7dfe71 100644 --- a/src/cmp/cmpenv.lsp +++ b/src/cmp/cmpenv.lsp @@ -152,10 +152,10 @@ (multiple-value-bind (x found) (get-sysprop fun 'PROCLAIMED-ARG-TYPES) (if found - (let ((minarg (length x))) + (let* ((minarg (length x)) + (maxarg call-arguments-limit)) (if (eq (first (last x)) '*) - (setf minarg (1- minarg) - maxarg call-arguments-limit) + (setf minarg (1- minarg)) (setf maxarg minarg)) (values minarg maxarg)) (values 0 call-arguments-limit))))