From fa3918b7aafaff2d38f233bcac3e75d30988b69c Mon Sep 17 00:00:00 2001
From: Christophe Rhodes <csr21@cantab.net>
Date: Mon, 11 Mar 2002 19:15:06 +0000
Subject: [PATCH] remove :class option from reinitialize-instance call

---
 asdf.lisp | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/asdf.lisp b/asdf.lisp
index b0cc767c..c05b4d8e 100644
--- a/asdf.lisp
+++ b/asdf.lisp
@@ -617,7 +617,7 @@ Returns the new tree (which probably shares structure with the old one)"
 	      ;; remove-keys form.  important to keep them in sync
 	      components pathname default-component-class
 	      perform explain output-files operation-done-p
-	      depends-on serialize in-order-to
+	      depends-on serialize in-order-to class
 	      ;; list ends
 	      &allow-other-keys) options
     (declare (ignore serialize))
@@ -625,7 +625,9 @@ Returns the new tree (which probably shares structure with the old one)"
 	    (let* ((other-args (remove-keys
 				'(components pathname default-component-class
 				  perform explain output-files operation-done-p
-				  depends-on serialize in-order-to)
+				  depends-on serialize in-order-to
+				  ;; XXX I seem to need this
+				  class)
 				rest))
 		   (ret
 		    (or (find-component parent name)
-- 
GitLab