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@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