From 71babf1f995ca29f9c5deb4a2bac3331a082a8aa Mon Sep 17 00:00:00 2001 From: Marius Gerbershagen Date: Sat, 24 Nov 2018 17:58:30 +0100 Subject: [PATCH] cmp: prevent spurious error when the compile function fails --- src/cmp/cmpmain.lsp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/cmp/cmpmain.lsp b/src/cmp/cmpmain.lsp index 7fc777b3d..07bbcab7b 100755 --- a/src/cmp/cmpmain.lsp +++ b/src/cmp/cmpmain.lsp @@ -829,7 +829,7 @@ after compilation." (cmp-delete-file h-pathname) (cmp-delete-file so-pathname) (mapc 'cmp-delete-file tmp-names) - (let ((output (or name (symbol-value 'GAZONK)))) + (let ((output (or name (and (boundp 'GAZONK) (symbol-value 'GAZONK))))) ;; By unsetting GAZONK we avoid spurious references to the ;; loaded code. (set 'GAZONK nil)