From bd85fecd4aeae7859d598bbb3a3e64cd2e482486 Mon Sep 17 00:00:00 2001
From: Samium Gromoff <_deepfire@feelingofgreen.ru>
Date: Mon, 13 Apr 2009 22:36:53 +0400
Subject: [PATCH] Prevent double loading caused by the .fas rebuild fix commit.

---
 contrib/asdf/asdf-ecl.lisp | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/contrib/asdf/asdf-ecl.lisp b/contrib/asdf/asdf-ecl.lisp
index 184875374..a6fe46b0e 100644
--- a/contrib/asdf/asdf-ecl.lisp
+++ b/contrib/asdf/asdf-ecl.lisp
@@ -34,8 +34,9 @@
 
 (defmethod perform ((o load-op) (c cl-source-file))
   (loop for i in (input-files o c)
-	collect (let ((output (compile-file-pathname i)))
-		  (load output))))
+       unless (string= (pathname-type i) "fas")
+       collect (let ((output (compile-file-pathname i)))
+                 (load output))))
 
 #+nil
 (defmethod output-files ((o load-op) (c cl-source-file))