Ignore:
Timestamp:
08/18/11 12:48:21 (3 years ago)
Author:
rjs
Message:

Update.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/lisp/lispm/ltop.lisp

    r228 r229  
    261261;;; ONCE        Use the once-only list
    262262;;; SYSTEM      Use the system list
     263;;; BEFORE-COLD The list that gets done before disk-save'ing out
    263264;;; If neither WARM nor COLD are specified, warm is assumed.  If a fourth argument
    264265;;; is given, then it is the list to use.  WARM and COLD will override the fourth argument.
     
    276277            ((STRING-EQUAL "WARM" V) (SETQ LIST-NAME 'WARM-INITIALIZATION-LIST))
    277278            ((STRING-EQUAL "COLD" V) (SETQ LIST-NAME 'COLD-INITIALIZATION-LIST))
    278             ((STRING-EQUAL "SYSTEM" V)
     279            ((STRING-EQUAL "BEFORE-COLD" V) (SETQ LIST-NAME 'BEFORE-COLD-INITIALIZATION-LIST))
     280            ((STRING-EQUAL "SYSTEM" V)
    279281             (SETQ LIST-NAME 'SYSTEM-INITIALIZATION-LIST)
    280282             (SETQ WHEN 'FIRST))
     
    305307;;; ONCE        Use the once-only list
    306308;;; SYSTEM      Use the system list
     309;;; BEFORE-COLD The list that gets done before disk-save'ing out
    307310;;; If neither WARM nor COLD are specified, warm is assumed.  If a third argument
    308311;;; is given, then it is the list to use.  WARM and COLD will override the third argument.
     
    315318      (COND ((STRING-EQUAL "WARM" V) (SETQ LIST-NAME 'WARM-INITIALIZATION-LIST))
    316319            ((STRING-EQUAL "COLD" V) (SETQ LIST-NAME 'COLD-INITIALIZATION-LIST))
     320            ((STRING-EQUAL "BEFORE-COLD" V) (SETQ LIST-NAME 'BEFORE-COLD-INITIALIZATION-LIST))
    317321            ((STRING-EQUAL "ONCE" V) (SETQ LIST-NAME 'ONCE-ONLY-INITIALIZATION-LIST))
    318322            ((STRING-EQUAL "SYSTEM" V) (SETQ LIST-NAME 'SYSTEM-INITIALIZATION-LIST))
     
    328332      ((NULL L))
    329333      (SETF (INIT-FLAG (CAR L)) NIL)))
    330 
    331 (ADD-INITIALIZATION "LTOP-CLEAR-SCREEN" '(FUNCALL COLD-LOAD-STREAM ':CLEAR-SCREEN) '(COLD))
    332 
    333334
    334335;Small version of FSET-CAREFULLY to be used until all the full
Note: See TracChangeset for help on using the changeset viewer.