X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Fdefs.lisp;h=e7e825d6b6239c09056c8f2400ad2a785fcd12fd;hb=f17e3d27d7ff599f9443d011d17017a2a858c81a;hp=21f0eb8c0a4b7bd42a5dd66f9944e0b06ce60e75;hpb=c5d72690c5b2d49e9a8d77e31e061b50a685ef3c;p=sbcl.git

diff --git a/src/pcl/defs.lisp b/src/pcl/defs.lisp
index 21f0eb8..e7e825d 100644
--- a/src/pcl/defs.lisp
+++ b/src/pcl/defs.lisp
@@ -595,7 +595,7 @@
 (defun intern-eql-specializer (object)
   ;; Need to lock, so that two threads don't get non-EQ specializers
   ;; for an EQL object.
-  (with-locked-hash-table (*eql-specializer-table*)
+  (with-locked-system-table (*eql-specializer-table*)
     (or (gethash object *eql-specializer-table*)
         (setf (gethash object *eql-specializer-table*)
               (make-instance 'eql-specializer :object object)))))