[git] CMU Common Lisp branch master updated. snapshot-2013-09-6-gaca64f0

Raymond Toy rtoy at common-lisp.net
Sat Sep 21 19:07:31 UTC 2013


This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "CMU Common Lisp".

The branch, master has been updated
       via  aca64f0932d5ae34c1dca7d7819dd4a6319a7a5c (commit)
      from  2cf92cd01a7f68639b9fc970a69547c6427dfbc4 (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit aca64f0932d5ae34c1dca7d7819dd4a6319a7a5c
Author: Raymond Toy <toy.raymond at gmail.com>
Date:   Sat Sep 21 12:07:23 2013 -0700

    Update for release 20e.
    
     * src/compiler/byte-comp.lisp
       * Update fasl file version to 20e
     * bootfiles/20d/boot-20e.lisp
       * Use this during a normal compile to update to 20e.

diff --git a/src/bootfiles/20d/boot-20e.lisp b/src/bootfiles/20d/boot-20e.lisp
new file mode 100644
index 0000000..b40a118
--- /dev/null
+++ b/src/bootfiles/20d/boot-20e.lisp
@@ -0,0 +1,68 @@
+;;;;
+;;;; Boot file for changing the fasl file version numbers to 20e.
+;;;;
+
+(in-package :c)
+
+(setf lisp::*enable-package-locked-errors* nil)
+
+;;;
+;;; Note that BYTE-FASL-FILE-VERSION is a constant.
+;;;
+;;; (Be sure to change BYTE-FASL-FILE-VERSION in
+;;; compiler/byte-comp.lisp to the correct value too!)
+;;;
+#-cmu20e
+(setf (symbol-value 'byte-fasl-file-version)       #x20e)
+#-cmu20e
+(setf (backend-fasl-file-version *target-backend*) #x20e)
+
+;;;
+;;; Don't check fasl versions in the compiling Lisp because we'll
+;;; load files compiled with the new version numbers.
+;;;
+#-cmu20e
+(setq lisp::*skip-fasl-file-version-check* t)
+
+;;;
+;;; This is here because BYTE-FASL-FILE-VERSION is constant-folded in
+;;; OPEN-FASL-FILE.  To make the new version number take effect, we
+;;; have to redefine the function.
+;;;
+#-cmu20e
+(defun open-fasl-file (name where &optional byte-p)
+  (declare (type pathname name))
+  (let* ((stream (open name :direction :output
+			    :if-exists :new-version
+			    :element-type '(unsigned-byte 8)
+			    :class 'binary-text-stream))
+	 (res (make-fasl-file :stream stream)))
+    (multiple-value-bind
+	(version f-vers f-imp)
+	(if byte-p
+	    (values "Byte code"
+		    byte-fasl-file-version
+		    (backend-byte-fasl-file-implementation *backend*))
+	    (values (backend-version *backend*)
+		    (backend-fasl-file-version *backend*)
+		    (backend-fasl-file-implementation *backend*)))
+      (format stream
+	      "FASL FILE output from ~A.~@
+	       Compiled ~A on ~A~@
+	       Compiler ~A, Lisp ~A~@
+	       Targeted for ~A, FASL version ~X~%"
+	      where
+	      (ext:format-universal-time nil (get-universal-time))
+	      (machine-instance) compiler-version
+	      (lisp-implementation-version)
+	      version f-vers)
+      ;;
+      ;; Terminate header.
+      (dump-byte 255 res)
+      ;;
+      ;; Specify code format.
+      (dump-fop 'lisp::fop-long-code-format res)
+      (dump-byte f-imp res)
+      (dump-unsigned-32 f-vers res))
+    res))
+
diff --git a/src/compiler/byte-comp.lisp b/src/compiler/byte-comp.lisp
index b89c70b..49810d6 100644
--- a/src/compiler/byte-comp.lisp
+++ b/src/compiler/byte-comp.lisp
@@ -38,7 +38,7 @@
 ;; 0-9 followed by a single hex digit in the range a-f.  Then the
 ;; version looks like a decimal number followed by a minor release
 ;; letter of a to f.
-(defconstant byte-fasl-file-version #x20d)
+(defconstant byte-fasl-file-version #x20e)
 
 (let* ((version-string (format nil "~X" byte-fasl-file-version)))
   ;; Add :cmu<n> to *features*

-----------------------------------------------------------------------

Summary of changes:
 src/bootfiles/{20b/boot-20c.lisp => 20d/boot-20e.lisp} |   14 +++++++-------
 src/compiler/byte-comp.lisp                            |    2 +-
 2 files changed, 8 insertions(+), 8 deletions(-)
 copy src/bootfiles/{20b/boot-20c.lisp => 20d/boot-20e.lisp} (89%)


hooks/post-receive
-- 
CMU Common Lisp



More information about the cmucl-cvs mailing list