From 4ddfd0c5e302d0530e21623fd6d10e8dbb9032bf Mon Sep 17 00:00:00 2001 From: Marius Gerbershagen Date: Sun, 10 Mar 2024 17:28:00 +0100 Subject: [PATCH] bytecmp: fix bugs in handling output-file option for compile-file Always load the output file with the bytecodes loader and (as specified) return the truename of the output-file. --- contrib/bytecmp/bytecmp.lsp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/contrib/bytecmp/bytecmp.lsp b/contrib/bytecmp/bytecmp.lsp index 86bebbae1..3e5064020 100755 --- a/contrib/bytecmp/bytecmp.lsp +++ b/contrib/bytecmp/bytecmp.lsp @@ -122,8 +122,8 @@ (write binary :stream sout :circle t :escape t :readably t :pretty nil)) (terpri sout))))) (when load - (load output-file :verbose *compile-verbose*)) - (values output-file nil nil)) + (si::load-bytecodes output-file *compile-verbose* *load-print* :default)) + (values (truename output-file) nil nil)) (defun install-bytecodes-compiler () (ext::package-lock (find-package :cl) nil)