X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ffop.lisp;h=c021a01a80a4395512263511777b4f73896c5f4b;hb=942e45e3bb73fd55786e4a0ab4590324063c0c89;hp=712e0824cea7a47d4778027ed2630a3d7d20dffd;hpb=4898ef32c639b1c7f4ee13a5ba566ce6debd03e6;p=sbcl.git

diff --git a/src/code/fop.lisp b/src/code/fop.lisp
index 712e082..c021a01 100644
--- a/src/code/fop.lisp
+++ b/src/code/fop.lisp
@@ -564,7 +564,7 @@
          (obj (svref *current-fop-table* obi))
          (idx (read-word-arg))
          (val (pop-stack)))
-    (if (typep obj 'instance)
+    (if (%instancep obj)
         (setf (%instance-ref obj idx) val)
         (setf (svref obj idx) val))))