Changeset 229 for trunk/lisp/lispm/ltop.lisp
- Timestamp:
- 08/18/11 12:48:21 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/lisp/lispm/ltop.lisp
r228 r229 261 261 ;;; ONCE Use the once-only list 262 262 ;;; SYSTEM Use the system list 263 ;;; BEFORE-COLD The list that gets done before disk-save'ing out 263 264 ;;; If neither WARM nor COLD are specified, warm is assumed. If a fourth argument 264 265 ;;; 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)) 277 278 ((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) 279 281 (SETQ LIST-NAME 'SYSTEM-INITIALIZATION-LIST) 280 282 (SETQ WHEN 'FIRST)) … … 305 307 ;;; ONCE Use the once-only list 306 308 ;;; SYSTEM Use the system list 309 ;;; BEFORE-COLD The list that gets done before disk-save'ing out 307 310 ;;; If neither WARM nor COLD are specified, warm is assumed. If a third argument 308 311 ;;; 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)) 316 319 ((STRING-EQUAL "COLD" V) (SETQ LIST-NAME 'COLD-INITIALIZATION-LIST)) 320 ((STRING-EQUAL "BEFORE-COLD" V) (SETQ LIST-NAME 'BEFORE-COLD-INITIALIZATION-LIST)) 317 321 ((STRING-EQUAL "ONCE" V) (SETQ LIST-NAME 'ONCE-ONLY-INITIALIZATION-LIST)) 318 322 ((STRING-EQUAL "SYSTEM" V) (SETQ LIST-NAME 'SYSTEM-INITIALIZATION-LIST)) … … 328 332 ((NULL L)) 329 333 (SETF (INIT-FLAG (CAR L)) NIL))) 330 331 (ADD-INITIALIZATION "LTOP-CLEAR-SCREEN" '(FUNCALL COLD-LOAD-STREAM ':CLEAR-SCREEN) '(COLD))332 333 334 334 335 ;Small version of FSET-CAREFULLY to be used until all the full
Note: See TracChangeset
for help on using the changeset viewer.