X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Fdefs.lisp;h=2de8e271a574cd59563ec5f0c8662bdc4045486c;hb=cd99f20d910298cbf5c2000e3dc3595fb0c8418b;hp=f2477475a7deffd94ca2693b5c0218f11c4b1522;hpb=ff92598854bf7cae8d57fe49cef4d9a98e1ab345;p=sbcl.git

diff --git a/src/pcl/defs.lisp b/src/pcl/defs.lisp
index f247747..2de8e27 100644
--- a/src/pcl/defs.lisp
+++ b/src/pcl/defs.lisp
@@ -420,6 +420,10 @@
 (defclass pcl-class (class)
   ((class-precedence-list
     :reader class-precedence-list)
+   ;; KLUDGE: see note in CPL-OR-NIL
+   (cpl-available-p
+    :reader cpl-available-p
+    :initform nil)
    (can-precede-list
     :initform ()
     :reader class-can-precede-list)