Changeset 11739


Ignore:
Timestamp:
Feb 16, 2009, 1:40:18 PM (10 years ago)
Author:
gb
Message:

DEFSTATICVAR: set the global bit in the expansion.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/lib/macros.lisp

    r11687 r11739  
    748748     (eval-when (:compile-toplevel)
    749749       (note-variable-info ',var :global ,env))
     750      (%symbol-bits ',var (logior (ash 1 $sym_vbit_global) (the fixnum (%symbol-bits ',var))))
    750751     (%defvar-init ,var ,value ,doc)))
    751752
Note: See TracChangeset for help on using the changeset viewer.