From 9d3ebe1cdec394ff105cf00c4f51073c8642dbe8 Mon Sep 17 00:00:00 2001 From: emarsden <emarsden> Date: Tue, 15 Jul 2003 10:24:06 +0000 Subject: [PATCH] Fix COMPILE-FILE-PATHNAME when *BYTE-COMPILE-DEFAULT* is enabled. (let ((ext:*byte-compile-default* t)) (compile-file-pathname "foo.lisp")) was returning #p"foo.x86f", when it should return #p"foo.lbytef". --- compiler/main.lisp | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/compiler/main.lisp b/compiler/main.lisp index 5cbb82013..42232c36c 100644 --- a/compiler/main.lisp +++ b/compiler/main.lisp @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/main.lisp,v 1.135 2003/05/12 16:30:42 emarsden Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/main.lisp,v 1.136 2003/07/15 10:24:06 emarsden Exp $") ;;; ;;; ********************************************************************** ;;; @@ -1833,7 +1833,7 @@ ;;; ;;; Find the function that is being compiled by COMPILE and bash its name to ;;; NAME. We also substitute for any references to name so that recursive -;;; calls will be compiled direct. Lambda is the top-level lambda for the +;;; calls will be compiled direct. LAMBDA is the top-level lambda for the ;;; compilation. A REF for the real function is the only thing in the ;;; top-level lambda other than the bind and return, so it isn't too hard to ;;; find. @@ -1853,9 +1853,9 @@ ;;; COMPILE -- Public ;;; (defun compile (name &optional (definition (fdefinition name))) - "Compiles the function whose name is Name. If Definition is supplied, + "Compiles the function whose name is NAME. If DEFINITION is supplied, it should be a lambda expression that is compiled and then placed in the - function cell of Name. If Name is Nil, the compiled code object is + function cell of NAME. If NAME is Nil, the compiled code object is returned." (with-compilation-unit () (with-ir1-namespace @@ -1954,7 +1954,7 @@ ;;; The output-file, if given, is merged with the input-file. (defun compile-file-pathname (input-file &key - byte-compile + (byte-compile *byte-compile-default*) (output-file t output-file-supplied-p) &allow-other-keys) "Return a pathname describing what file COMPILE-FILE would write to given -- GitLab