mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-03-13 00:10:35 -07:00
Code Issues Projects Releases Packages Wiki Activity

Fix missing let binding (Josh Elsasser)

Browse source
This commit is contained in:
jjgarcia 2008-09-01 19:09:05 +00:00
parent a710a355f5
commit 2bb0c1b443
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))))