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

Output a comment with the name of the function/macro besides ecl_cmp_def{un,macro}

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2011-12-11 21:41:20 +01:00
parent 010509f01a
commit 216408a298
1 changed files with 1 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

1
src/cmp/cmptop.lsp
View file

@ -817,6 +817,7 @@
(new-local fun)
(wt-nl (if macro "ecl_cmp_defmacro(" "ecl_cmp_defun(")
loc ");")
(wt-comment (loc-immediate-value fname))
(close-inline-blocks)))
(defun output-cfuns (stream)