From 2b3c328777c6ef8083e2c9ef39b66972befe8e7a Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Wed, 27 Jul 2011 21:56:10 +0200 Subject: [PATCH] DISASSEMBLE should not always try to dump the data file. --- src/cmp/cmpmain.lsp | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src/cmp/cmpmain.lsp b/src/cmp/cmpmain.lsp index ce5019803..c8ae7cdb9 100755 --- a/src/cmp/cmpmain.lsp +++ b/src/cmp/cmpmain.lsp @@ -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)