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

Compiled files now carry some comments with the source they came from.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2009-05-02 14:39:01 +02:00
parent 91d17a676d
commit 38eea852ab
1 changed files with 8 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

9
src/cmp/cmpmain.lsp
View file

@ -800,9 +800,16 @@ from the C language code. NIL means \"do not create the file\"."
(defun compiler-pass2 (c-pathname h-pathname data-pathname system-p init-name
shared-data &key input-designator)
(with-open-file (*compiler-output1* c-pathname :direction :output)
#-ecl-min
(multiple-value-bind (second minute hour day month year)
(get-decoded-time)
(format *compiler-output1* "~&/*~% * Compiler: ~A ~A~% * Date: ~D/~D/~D ~2,'0D:~2,'0D (yyyy/mm/dd)~% * Machine: ~A ~A ~A ~% * Source: ~A~% */~%"
(lisp-implementation-type) (lisp-implementation-version)
year month day hour minute
(software-type) (software-version) (machine-type)
input-designator))
(with-open-file (*compiler-output2* h-pathname :direction :output)
(wt-nl1 "#include " *cmpinclude*)
(format *compiler-output1* "~&/* input designator: ~A */~%" input-designator)
(catch *cmperr-tag* (ctop-write init-name
h-pathname
data-pathname