X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Fslots.lisp;h=e7c1d866174e759039995b821eff6c2dc3c1f2e6;hb=dc86450e18fb7b90bf6be7d8df8b8ebcb0d090f9;hp=a19070bd352cf556561c751bb2ae45275f673bad;hpb=63a7243d17888e96060a5b62db41f6896d2ac86c;p=sbcl.git

diff --git a/src/pcl/slots.lisp b/src/pcl/slots.lisp
index a19070b..e7c1d86 100644
--- a/src/pcl/slots.lisp
+++ b/src/pcl/slots.lisp
@@ -58,7 +58,7 @@
 	 (error "unrecognized instance type"))))
 
 (defun swap-wrappers-and-slots (i1 i2)
-  (sb-sys:without-interrupts
+  (with-pcl-lock			;FIXME is this sufficient?
    (cond ((std-instance-p i1)
 	  (let ((w1 (std-instance-wrapper i1))
 		(s1 (std-instance-slots i1)))