Changeset 229 for trunk/lisp/lispm/ltop.lisp

Timestamp:

08/18/11 12:48:21 (5 years ago)

Author:

rjs

Message:

Update.

File:

• trunk/lisp/lispm/ltop.lisp (modified) (5 diffs)

trunk/lisp/lispm/ltop.lisp

@@ -261 +261 @@
 ;;; ONCE        Use the once-only list
 ;;; SYSTEM      Use the system list
+;;; BEFORE-COLD The list that gets done before disk-save'ing out
 ;;; If neither WARM nor COLD are specified, warm is assumed.  If a fourth argument
 ;;; is given, then it is the list to use.  WARM and COLD will override the fourth argument.
@@ -276 +277 @@
             ((STRING-EQUAL "WARM" V) (SETQ LIST-NAME 'WARM-INITIALIZATION-LIST))
             ((STRING-EQUAL "COLD" V) (SETQ LIST-NAME 'COLD-INITIALIZATION-LIST))
-            ((STRING-EQUAL "SYSTEM" V)
+            ((STRING-EQUAL "BEFORE-COLD" V) (SETQ LIST-NAME 'BEFORE-COLD-INITIALIZATION-LIST))
+            ((STRING-EQUAL "SYSTEM" V)
              (SETQ LIST-NAME 'SYSTEM-INITIALIZATION-LIST)
              (SETQ WHEN 'FIRST))
@@ -305 +307 @@
 ;;; ONCE        Use the once-only list
 ;;; SYSTEM      Use the system list
+;;; BEFORE-COLD The list that gets done before disk-save'ing out
 ;;; If neither WARM nor COLD are specified, warm is assumed.  If a third argument
 ;;; is given, then it is the list to use.  WARM and COLD will override the third argument.
@@ -315 +318 @@
       (COND ((STRING-EQUAL "WARM" V) (SETQ LIST-NAME 'WARM-INITIALIZATION-LIST))
             ((STRING-EQUAL "COLD" V) (SETQ LIST-NAME 'COLD-INITIALIZATION-LIST))
+            ((STRING-EQUAL "BEFORE-COLD" V) (SETQ LIST-NAME 'BEFORE-COLD-INITIALIZATION-LIST))
             ((STRING-EQUAL "ONCE" V) (SETQ LIST-NAME 'ONCE-ONLY-INITIALIZATION-LIST))
             ((STRING-EQUAL "SYSTEM" V) (SETQ LIST-NAME 'SYSTEM-INITIALIZATION-LIST))
@@ -328 +332 @@
       ((NULL L))
       (SETF (INIT-FLAG (CAR L)) NIL)))
-
-(ADD-INITIALIZATION "LTOP-CLEAR-SCREEN" '(FUNCALL COLD-LOAD-STREAM ':CLEAR-SCREEN) '(COLD))
-
 
 ;Small version of FSET-CAREFULLY to be used until all the full