From a3e1cf7c78a4a8ccb901d90d3add51e4d53c9bc5 Mon Sep 17 00:00:00 2001 From: Marius Gerbershagen Date: Sun, 8 Jul 2018 17:30:53 +0200 Subject: [PATCH] cmp: correctly restore compile-file(-pathname) in ext:install-c-compiler After a call to ext:install-c-compiler while the bytecodes compiler is installed, compile-file and compile-file-pathname still point to bc-compile-file and bc-compile-file-pathname. Reported and fixed by gitlab user pouar. Fixes #444. --- src/cmp/cmpmain.lsp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/cmp/cmpmain.lsp b/src/cmp/cmpmain.lsp index e68d936be..280ae8b28 100755 --- a/src/cmp/cmpmain.lsp +++ b/src/cmp/cmpmain.lsp @@ -981,8 +981,8 @@ from the C language code. NIL means \"do not create the file\"." (setf *features* (delete :ecl-bytecmp *features*)) (setf (fdefinition 'disassemble) disassemble (fdefinition 'compile) compile - (fdefinition 'compile-file) #'compile-file - (fdefinition 'compile-file-pathname) #'compile-file-pathname) + (fdefinition 'compile-file) compile-file + (fdefinition 'compile-file-pathname) compile-file-pathname) (ext::package-lock (find-package :cl) t))) (provide 'cmp)