mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-17 14:51:20 -08:00
Code Issues Projects Releases Packages Wiki Activity

Fix missing let binding (Josh Elsasser)

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2008-09-01 19:56:24 +02:00
parent 046533c100
commit 25beb4bfec
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/cmp/cmpenv.lsp
View file

@ -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))))