don't stack-allocate specialized vectors on non-conservtive control stacks

[sbcl.git] / src / pcl / init.lisp

diff --git a/src/pcl/init.lisp b/src/pcl/init.lisp
index 8a7b123..5b6d913 100644 (file)
--- 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)