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

FUNCTION forms have output type FUNCTION

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2009-02-15 19:39:47 +01:00
parent fffb57cc2a
commit b331ae3523
1 changed files with 1 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

1
src/cmp/cmpspecial.lsp
View file

@ -67,6 +67,7 @@
(incf (var-ref var))
(add-to-read-nodes var (make-c1form* 'VAR :args var)))
(make-c1form* 'FUNCTION
:type 'FUNCTION
:sp-change (not (and (symbolp fun)
(get-sysprop fun 'NO-SP-CHANGE)))
:args 'GLOBAL nil fun))))