mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-22 20:42:03 -08:00
Code Issues Projects Releases Packages Wiki Activity

cmp: prevent spurious error when the compile function fails

Browse source
This commit is contained in:
Marius Gerbershagen 2018-11-24 17:58:30 +01:00
parent abf33455f6
commit 71babf1f99
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/cmp/cmpmain.lsp
View file

@ -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)