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

- Bugfix: make C::GET-RETURN-TYPE return function's return type, not

Browse source 
argument type list.
This commit is contained in:
japhie 2005-09-14 11:57:40 +00:00
parent 2aa8494146
commit 14864f4b6d
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.lsp
View file

@ -129,7 +129,7 @@
(defun get-return-type (fname)
(let ((x (assoc fname *function-declarations*)))
(if x
(second x)
(third x)
(get-sysprop fname 'PROCLAIMED-RETURN-TYPE))))
(defun get-local-arg-types (fun &aux x)