Treat PRIMITIVE-OBJECT-SET-TYPE as a side-effecting primitive.

This causes it not to be constant-folded, which was causing problems
for LIARC when compiling runtime/packag.scm, and which was probably
unsafe to do anyway.

diff --git a/src/compiler/base/utils.scm b/src/compiler/base/utils.scm
index 2a79c5dcde8c6cffd9a292f0f2ab9d363a350b4d..8b0a81ef43bad974302c7c514ca71bf8dffbb742 100644 (file)
--- a/src/compiler/base/utils.scm
+++ b/src/compiler/base/utils.scm
@@ -388,7 +388,6 @@ USA.
        (ucode-primitive one-plus-fixnum)
        (ucode-primitive plus-fixnum)
        (ucode-primitive primitive-object-ref)
-       (ucode-primitive primitive-object-set-type)
        (ucode-primitive primitive-object-type)
        (ucode-primitive quotient)
        (ucode-primitive remainder)