X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Finit.lisp;h=5b6d913adda85a230046c0794f360557f4d116da;hb=f7faed97898dd0e94a18b0d1fca03aaa0fe24ab0;hp=8a7b1237ac813fb2c73705dc8139d72ef7553343;hpb=0223f43d5f199914ebceff12b6f4c60448369edd;p=sbcl.git

diff --git a/src/pcl/init.lisp b/src/pcl/init.lisp
index 8a7b123..5b6d913 100644
--- a/src/pcl/init.lisp
+++ b/src/pcl/init.lisp
@@ -66,7 +66,7 @@
   (let ((type (slot-definition-type slotd)))
     (values
      (when (and (neq t type) (safe-p (slot-definition-class slotd)))
-       (with-locked-hash-table (**typecheck-cache**)
+       (with-locked-system-table (**typecheck-cache**)
          (or (gethash type **typecheck-cache**)
              (setf (gethash type **typecheck-cache**)
                    (handler-bind (((or style-warning compiler-note)