Diff of /src/pcl/defs.lisp [a97406] .. [71bc8b]  Maximize  Restore

Switch to side-by-side view

--- 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)))))

Get latest updates about Open Source Projects, Conferences and News.

Sign up for the SourceForge newsletter:

JavaScript is required for this form.

No, thanks