Back out change to disable type checks for accessors and modifiers;

it's tickling a compiler bug.

diff --git a/src/runtime/defstr.scm b/src/runtime/defstr.scm
index 58c1d12637630d3dbb66d199f3d7652a2f98f672..7b8e5575af6ddc94749882e7d0742cc95c56df1c 100644 (file)
--- a/src/runtime/defstr.scm
+++ b/src/runtime/defstr.scm
@@ -616,7 +616,6 @@ differences:
                     ,(close (structure/type-descriptor structure) context)
                     ',name))
                 `(DEFINE-INTEGRABLE (,accessor-name STRUCTURE)
-                   (DECLARE (NO-TYPE-CHECKS))
                    (,(absolute (case (structure/physical-type structure)
                                  ((RECORD) '%RECORD-REF)
                                  ((VECTOR) 'VECTOR-REF)
@@ -645,7 +644,6 @@ differences:
                     ,(close (structure/type-descriptor structure) context)
                     ',name))
                 `(DEFINE-INTEGRABLE (,modifier-name STRUCTURE VALUE)
-                   (DECLARE (NO-TYPE-CHECKS))
                    ,(case (structure/physical-type structure)
                       ((RECORD)
                        `(,(absolute '%RECORD-SET! context) STRUCTURE