Changeset 6505


Ignore:
Timestamp:
May 9, 2007, 8:34:12 AM (15 years ago)
Author:
gb
Message:

Bump current fasl version.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/lib/nfcomp.lisp

    r6239 r6505  
    774774      ;;top-level compiles.
    775775      ;;This assumes the form has been macroexpanded, or at least none of the
    776       ;lnon-evaluated macro arguments could look like functions.
     776      ;;non-evaluated macro arguments could look like functions.
    777777      (let (lfun (args (%cdr form)))
    778778        (while args
     
    783783              (labels ((subst-l (new ptr list)
    784784                         (if (eq ptr list) (cons new (cdr list))
    785                              (cons (car list) (subst-l new ptr (%cdr list))))))
     785                           (cons (car list) (subst-l new ptr (%cdr list))))))
    786786                (setq form (subst-l arg args form))))
    787787            (setq args (%cdr args))))))
     
    893893;These should be constants, but it's too much trouble when need to change 'em.
    894894(defparameter FASL-FILE-ID #xFF00)  ;Overall file format, shouldn't change much
    895 (defparameter FASL-VERSION #xFF4d)  ;Fasl block format.
     895(defparameter FASL-VERSION #xFF4e)  ;Fasl block format.
    896896
    897897(defvar *fasdump-hash*)
Note: See TracChangeset for help on using the changeset viewer.