0.pre7.50:

[sbcl.git] / src / code / early-fasl.lisp

diff --git a/src/code/early-fasl.lisp b/src/code/early-fasl.lisp
index e1eb072..706c94c 100644 (file)
--- a/src/code/early-fasl.lisp
+++ b/src/code/early-fasl.lisp
@@ -38,7 +38,7 @@
 
 ;;; This value should be incremented when the system changes in such
 ;;; a way that it will no longer work reliably with old fasl files.
-(defconstant +fasl-file-version+ 14)
+(defconstant +fasl-file-version+ 18)
 ;;; 2 = sbcl-0.6.4 uses COMPILE-OR-LOAD-DEFGENERIC.
 ;;; 3 = sbcl-0.6.6 uses private symbol, not :EMPTY, for empty HASH-TABLE slot.
 ;;; 4 = sbcl-0.6.7 uses HAIRY-DATA-VECTOR-REF and HAIRY-DATA-VECTOR-SET
@@ -64,18 +64,21 @@
 ;;; 12 = sbcl-0.6.12.22 added new SB-FASL package
 ;;; 13 = sbcl-0.6.12.28 removed some elements from *STATIC-SYMBOLS* 
 ;;; 14 = sbcl-0.6.12.29 removed more elements from *STATIC-SYMBOLS* 
-
-;;; the conventional file extension for fasl files on this
-;;; architecture, e.g. "x86f"
-(declaim (type (or simple-string null) *backend-fasl-file-type*))
-(defvar *backend-fasl-file-type* nil)
-
-;;; This is a sort of pun that we inherited from CMU CL. For ordinary,
-;;; non-byte-coded fasl files, the "implementation" is basically the
-;;; CPU. For byte-coded fasl files, the "implementation" is whether
-;;; the data are stored big-endianly or little-endianly.
-(defun backend-byte-fasl-file-implementation ()
-  *backend-byte-order*)
+;;; 15 = sbcl-0.6.12.33 changed the layout of STREAM
+;;; 16 = sbcl-0.pre7.15 changed the layout of PRETTY-STREAM
+;;; 17 = sbcl-0.pre7.38 (merging many changes accumulated in
+;;;      the sbcl-0.pre7.37.flaky5.* branch back into the main branch)
+;;;      got rid of byte compiler, byte interpreter, and IR1
+;;;      interpreter, changed %DEFUN and DEFSTRUCT, changed the
+;;;      meaning of FOP-FSET, and changed the layouts of various
+;;;      internal compiler structures (e.g. DEFSTRUCT CLAMBDA)
+;;; 18 = sbcl-0.pre7.39 swapped FUNCTION-POINTER-TYPE and
+;;;      INSTANCE-POINTER-TYPE low-level type codes to help with
+;;;      the PPC port
+
+;;; the conventional file extension for our fasl files
+(declaim (type simple-string *fasl-file-type*))
+(defvar *fasl-file-type* "fasl")
 \f
 ;;; information about below-Lisp-level linkage
 ;;;