From 341cccaf82cf96e2e289417555a5bd208b0f9820 Mon Sep 17 00:00:00 2001 From: toy <toy> Date: Sun, 25 Aug 2002 18:56:55 +0000 Subject: [PATCH] We were not honoring compile-file-pathname when given a logical pathname. Make it so. --- compiler/main.lisp | 13 ++++++++----- 1 file changed, 8 insertions(+), 5 deletions(-) diff --git a/compiler/main.lisp b/compiler/main.lisp index 25d4d228a..65ed8282f 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.126 2002/08/12 16:08:14 toy Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/main.lisp,v 1.127 2002/08/25 18:56:55 toy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -1722,13 +1722,16 @@ :type type :defaults (translate-logical-pathname default)) (pathname file)))) - + (when output-file (setq output-file-pathname (translate-logical-pathname - (compile-file-pathname (first source) - :output-file output-file - :byte-compile *byte-compile*))) + (if (eq output-file t) + (compile-file-pathname (first source) + :byte-compile *byte-compile*) + (compile-file-pathname (first source) + :output-file output-file + :byte-compile *byte-compile*)))) (setq fasl-file (open-fasl-file output-file-pathname (namestring (first source)) (eq *byte-compile* t)))) -- GitLab