Changeset 229


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

Update.

Location:
trunk/lisp/lispm
Files:
4 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
  • trunk/lisp/lispm/pkgdcl.lisp

    r228 r229  
    129129;         ("AI: LISPM; LFL QFASL") ;ACTUALLY, IS IN COLD LOAD therefore in SI like it or not
    130130          ("AI: LISPM; DEFMIC >") ;MUST BE AFTER QCFILE
    131           ("AI: LISPM; DOCMIC >"))
     131          ("AI: LISPM; DOCMIC >")
     132          ("AI: LISPM; UCINIT QFASL"))  ;Contains MCLAP properties for initially
     133                                        ;microcompiled functions.  There is no
     134                                        ;source for this file!
    132135         (EXTERNAL COMPILE LOAD FASLOAD COMPILE-FILE-ALIST COMPILE-FILE-ALIST-MAP
    133136                   LOAD-FILE-ALIST QC-FILE
  • trunk/lisp/lispm/qfctns.lisp

    r228 r229  
    15521552            ((ZEROP N))
    15531553          (SETF (ARRAY-LEADER NEW-ARRAY I) (ARRAY-LEADER ARRAY I)))
     1554
     1555        ;; Check for zero-size array, which the code below doesn't handle correctly
     1556        (AND (DO ((L DIMENSIONS (CDR L)) (L1 OLD-DIMS (CDR L1))) ((NULL L) NIL)
     1557               (AND (OR (ZEROP (CAR L)) (ZEROP (CAR L1)))
     1558                    (RETURN T)))
     1559             (GO DONE))
    15541560
    15551561        ;; Create a vector of fixnums to use as subscripts to step thru the arrays.
  • trunk/lisp/lispm/qmisc.lisp

    r228 r229  
    13531353           
    13541354           ;Cause cold boot initializations to happen when rebooted
     1355           ;and do the BEFORE-COLD initializations now
     1356           (INITIALIZATIONS 'BEFORE-COLD-INITIALIZATION-LIST T)
    13551357           (RESET-INITIALIZATIONS 'COLD-INITIALIZATION-LIST)
    13561358           (SETQ WHO-LINE-JUST-COLD-BOOTED-P T)
Note: See TracChangeset for help on using the changeset viewer.