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

Small comment on call-global c1forms

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

4
src/cmp/cmpeval.lsp
View file

@ -105,7 +105,9 @@
(make-c1form* 'CALL-GLOBAL
:sp-change (function-may-change-sp fname)
:type return-type
:args fname forms))))))
:args fname forms
;; loc and type are filled by c2expr
))))))
(defun c2expr (form &aux (name (c1form-name form)) (args (c1form-args form)))
(if (eq name 'CALL-GLOBAL)