X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fpred.lisp;h=dc780441f9b18f7011fd709235a470c6a8718bbe;hb=5e92e9ed61903658015c2a75c79a32ad41dbd29d;hp=d7f5bfa8a0961c0720ca2b06a3b2f5e98152632e;hpb=4898ef32c639b1c7f4ee13a5ba566ce6debd03e6;p=sbcl.git

diff --git a/src/code/pred.lisp b/src/code/pred.lisp
index d7f5bfa..dc78044 100644
--- a/src/code/pred.lisp
+++ b/src/code/pred.lisp
@@ -139,7 +139,7 @@
     (t
      (let* ((classoid (layout-classoid (layout-of object)))
             (name (classoid-name classoid)))
-       (if (typep object 'instance)
+       (if (%instancep object)
            (case name
              (sb!alien-internals:alien-value
               `(sb!alien:alien
@@ -229,10 +229,10 @@
         ((hash-table-p x)
          (and (hash-table-p y)
               (hash-table-equalp x y)))
-        ((typep x 'instance)
+        ((%instancep x)
          (let* ((layout-x (%instance-layout x))
                 (len (layout-length layout-x)))
-           (and (typep y 'instance)
+           (and (%instancep y)
                 (eq layout-x (%instance-layout y))
                 (structure-classoid-p (layout-classoid layout-x))
                 (do ((i 1 (1+ i)))