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

cmp: replace magic number with a defined constant

Browse source 
The magic number was wrong anyway.
This commit is contained in:
Daniel Kochmański 2019-07-19 12:45:09 +02:00 • committed by Marius Gerbershagen
parent f3c6e4ccef
commit adace6ba08
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/cmp/cmplam.lsp
View file

@ -429,7 +429,7 @@ The function thus belongs to the type of functions that ecl_make_cfun accepts."
(format nil "lex~D" (1- *level*)))
(t "narg"))))
(if (setq simple-varargs (and (not (or rest keywords allow-other-keys))
(< (+ nreq nopt) 30)))
(<= (+ nreq nopt) si::c-arguments-limit)))
(wt-nl "va_list args; va_start(args,"
(last-variable)
");")