X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fclass.lisp;h=a3e8f693be372872cf598aa5d468cee24e1272ec;hb=28d9bb7a509695caaf78d647b6aa1b0f02c0e83a;hp=913a541823a84aef13b0097dc563ff5d42e90194;hpb=78a057624fecd10d0fb2ead4ef02ffc361b1ee22;p=sbcl.git

diff --git a/src/code/class.lisp b/src/code/class.lisp
index 913a541..a3e8f69 100644
--- a/src/code/class.lisp
+++ b/src/code/class.lisp
@@ -735,6 +735,10 @@
   #-sb-xc (declare (type sb!xc:class new-value))
   (ecase (info :type :kind name)
     ((nil))
+    (:forthcoming-defclass-type
+     ;; XXX Currently, nothing needs to be done in this case. Later, when
+     ;; PCL is integrated tighter into SBCL, this might need more work.
+     nil)
     (:instance
      (let ((old (class-of (sb!xc:find-class name)))
 	   (new (class-of new-value)))