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

Some of the variable types are not symbols, hence we must precede declarations with TYPE.

Browse source
This commit is contained in:
jgarcia 2006-04-24 08:44:50 +00:00
parent 5e31168db1
commit db290fc2dd
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

@ -211,7 +211,7 @@
(push `(ignorable ,@is) declarations))
(loop for (var . type) in ts
unless (member var new-variable-names)
do (push (list type var) declarations))
do (push `(type ,type ,var) declarations))
(setq body
(cond (aux-vars
(let ((let nil))