From a42dbe52bc4808ce12e87b94c8563cabd4d48446 Mon Sep 17 00:00:00 2001 From: Samium Gromoff <_deepfire@feelingofgreen.ru> Date: Sat, 18 Apr 2009 16:24:11 +0400 Subject: [PATCH] Fix MAKE-BUILD: filter out :FASL files from INPUT-FILES return value. --- contrib/asdf/asdf-ecl.lisp | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) mode change 100644 => 100755 contrib/asdf/asdf-ecl.lisp diff --git a/contrib/asdf/asdf-ecl.lisp b/contrib/asdf/asdf-ecl.lisp old mode 100644 new mode 100755 index a6fe46b0e..d6bed03f6 --- a/contrib/asdf/asdf-ecl.lisp +++ b/contrib/asdf/asdf-ecl.lisp @@ -180,10 +180,10 @@ t) (defmethod perform ((o bundle-op) (c system)) - (let* ((object-files (input-files o c)) - (output (first (output-files o c)))) - (ensure-directories-exist output) - (apply #'c::builder (bundle-op-type o) output :lisp-files object-files + (let* ((object-files (remove "fas" (input-files o c) :key #'pathname-type :test #'string=)) + (output (output-files o c))) + (ensure-directories-exist (first output)) + (apply #'c::builder (bundle-op-type o) (first output) :lisp-files object-files (bundle-op-build-args o)))) (defun select-operation (monolithic type)