mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-18 07:12:26 -08:00
Code Issues Projects Releases Packages Wiki Activity

DISASSEMBLE should not always try to dump the data file.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2011-07-27 21:56:10 +02:00
parent 24ffd8065c
commit 2b3c328777
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/cmp/cmpmain.lsp
View file

@ -854,7 +854,8 @@ from the C language code. NIL means \"do not create the file\"."
(ctop-write (compute-init-name "foo" :kind :fasl)
(if h-file h-file "")
(if data-file data-file ""))
(data-c-dump data-file))
(when data-file
(data-c-dump data-file)))
(setf (symbol-function 'T3LOCAL-FUN) t3local-fun)
(when h-file (close *compiler-output2*)))))
nil)