Changeset 11391

Timestamp:

Nov 18, 2008, 8:21:38 PM (12 years ago)

Author:

gb

Message:

In NX1-SYMBOL: adjust ref count, even if closed (large part of the
point of recent changes in this area.)

File:

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

trunk/source/compiler/nx0.lisp

@@ -1779 +1779 @@
                 (progn
                   (when (not inherited-p)
-                    (nx-set-var-bits info (%ilogior2 (%ilsl $vbitreffed 1) (nx-var-bits info)))
-                    (nx-adjust-ref-count info))
+                    (nx-set-var-bits info (%ilogior2 (%ilsl $vbitreffed 1) (nx-var-bits info))))
+                  (nx-adjust-ref-count info)
                   (make-acode (%nx1-operator lexical-reference) info)))
               (make-acode