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

Previous fixed removed. Hopefully this time I got FTYPE declarations

Browse source 
correct: they are restricted to (FTYPE (FUNCTION (arg-types*) ret-type*) name*)
This commit is contained in:
jjgarcia 2002-12-17 09:53:04 +00:00
parent 8852166529
commit d21a1fd389
1 changed files with 0 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/cmp/cmpenv.lsp
View file

@ -249,9 +249,6 @@
(dolist (v (cddr decl))
(add-function-proclamation v (cdr (second decl)))
))
((and (equal (length decl) 4)
(consp (third decl)))
(add-function-proclamation (second decl) (cddr decl)))
(t (cmpwarn "Bad function proclamation ~a" decl))))
(INLINE
(dolist (fun (cdr decl))
@ -430,9 +427,6 @@
(eq (caadr decl) 'FUNCTION))
(dolist (v (cddr decl))
(add-function-declaration v (cadr (second decl)) (caddr (second decl)))))
((and (equal (length decl) 4)
(consp (third decl)))
(add-function-declaration (second decl) (third decl) (cdddr decl)))
(t (cmpwarn "The function declaration ~a is illegal" decl))))
(INLINE
(push decl dl)