X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcode%2Fdefstruct.lisp;h=6508d2c8e8526141eba4dd9133662dd1a9578351;hb=10adbe19b88bf9d4fe65ad67f6de0fd065af87ff;hp=ef5559c7de0a3d3246f50e9db282bfd9563eb817;hpb=77d1a39f28fe8d240cf441a9a54a80d4bc98ea52;p=sbcl.git

diff --git a/src/code/defstruct.lisp b/src/code/defstruct.lisp
index ef5559c..6508d2c 100644
--- a/src/code/defstruct.lisp
+++ b/src/code/defstruct.lisp
@@ -822,8 +822,8 @@
                                        modified
                                        (copy-structure included-slot))))
             (when (and (neq (dsd-type new-slot) (dsd-type included-slot))
-                       (not (subtypep (dsd-type included-slot)
-                                      (dsd-type new-slot)))
+                       (not (sb!xc:subtypep (dsd-type included-slot)
+					    (dsd-type new-slot)))
                        (dsd-safe-p included-slot))
               (setf (dsd-safe-p new-slot) nil)
               ;; XXX: notify?