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

Fixed typo in GET-ARG-TYPES: local declarations were not properly parsed.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2010-07-01 22:45:19 +02:00
parent 8ce8d5aeb4
commit 1eb33bb8af
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/cmp/cmpenv-fun.lsp
View file

@ -76,7 +76,7 @@
(defun get-arg-types (fname &optional (env *cmp-env*) (may-be-global t))
(let ((x (cmp-env-search-ftype fname env)))
(if x
(values x t)
(values (first x) t)
(when may-be-global
(let ((fun (cmp-env-search-function fname env)))
(when (or (null fun) (and (fun-p fun) (fun-global fun)))