From d563a8558b820efe2cbb7f7f63b8492c5470fd08 Mon Sep 17 00:00:00 2001 From: jgarcia Date: Wed, 14 May 2008 14:51:54 +0000 Subject: [PATCH] Fixed typo in :after method --- contrib/asdf/asdf-ecl.lisp | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/contrib/asdf/asdf-ecl.lisp b/contrib/asdf/asdf-ecl.lisp index d44d6db4f..3710ebdef 100644 --- a/contrib/asdf/asdf-ecl.lisp +++ b/contrib/asdf/asdf-ecl.lisp @@ -25,7 +25,8 @@ (list (compile-file-pathname (component-pathname c) :type :object))) (defmethod perform :after ((o compile-op) (c cl-source-file)) - (c:build-fasl output :lisp-files (output-files o c))) + (let ((output (compile-file-pathname (component-pathname c)))) + (c:build-fasl output :lisp-files (output-files o c)))) (defmethod perform ((o load-op) (c cl-source-file)) (loop for i in (input-files o c)