From 2c8c8abfbcbb9ac0c4e5084f3292854db16aab4a Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Sat, 30 Jul 2011 12:26:28 +0200 Subject: [PATCH] *compile-file-{pathname,truename}* were not properly bound in bytecmp.lsp --- contrib/bytecmp/bytecmp.lsp | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/contrib/bytecmp/bytecmp.lsp b/contrib/bytecmp/bytecmp.lsp index 1a7dbb6af..085f3437f 100644 --- a/contrib/bytecmp/bytecmp.lsp +++ b/contrib/bytecmp/bytecmp.lsp @@ -61,7 +61,9 @@ (when *compile-verbose* (format t "~&;;; Compiling ~A" input)) (cond ((not (streamp input)) - (let ((ext:*source-location* (cons (truename input) 0))) + (let* ((ext:*source-location* (cons (truename input) 0)) + (*compile-file-pathname* (pathname (merge-pathnames input))) + (*compile-file-truename* (truename input))) (with-open-file (sin input :direction :input) (bc-compile-file sin :output-file output-file)))) ((not output-file-p)