mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-30 04:10:44 -08:00
Code Issues Projects Releases Packages Wiki Activity

*compile-file-{pathname,truename}* were not properly bound in bytecmp.lsp

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2011-07-30 12:26:28 +02:00
parent c762dea2e7
commit 2c8c8abfbc
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
contrib/bytecmp/bytecmp.lsp
View file

@ -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)