0.9.8.34:

[sbcl.git] / src / code / fop.lisp

diff --git a/src/code/fop.lisp b/src/code/fop.lisp
index 712e082..c021a01 100644 (file)
--- 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))))