Changeset 12167


Ignore:
Timestamp:
Jun 1, 2009, 1:01:45 AM (10 years ago)
Author:
gb
Message:

Set *batch-flag* based on kernel global value early in startup process
(before initializing streams).

File:
1 edited

Legend:

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

    r12138 r12167  
    254254  (setq *interactive-streams-initialized* nil)
    255255  (setq *heap-ivectors* nil)
     256  (setq *batch-flag* (not (eql (%get-kernel-global 'batch-flag) 0)))
    256257  (%revive-system-locks)
    257258  (refresh-external-entrypoints)
Note: See TracChangeset for help on using the changeset viewer.