Changeset 5497

Timestamp:

Nov 6, 2006, 8:59:59 PM (18 years ago)

Author:

Gary Byers

Message:

ACODE-FORM-TYPE: use var-inittype if var is never assigned to.

File:

• trunk/ccl/compiler/nx0.lisp (modified) (1 diff)

trunk/ccl/compiler/nx0.lisp

@@ -436 +436 @@
                   (if (eq op (%nx1-operator lexical-reference))
                     (let* ((var (cadr form))
-                           (punted (logbitp $vbitpunted (nx-var-bits var))))
-                      (if punted
+                           (bits (nx-var-bits var))
+                           (punted (logbitp $vbitpunted bits)))
+                      (if (or punted
+                              (eql 0 (%ilogand $vsetqmask bits)))
                         (var-inittype var)))
                     (if (eq op (%nx1-operator %aref1))